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ABSTRACT 



This research develops a prototype relational database system for storing and 
managing Fleet Battle Experiment (FBE) data. It is the first step in constructing a 
knowledge-base system for such data. The objective is to create a relational database 
capable of generating information from past experiments for analysis and lessons learned 
to benefit future experiments. Research methodology included literature research of 
application development methodologies and database systems, as well as observing a 
FBE and gathering system requirements information from personnel that plan, configure, 
and participate in FBEs and war games. 

Development of the system involved designing a schema (data model) that 
consists of entities, attributes, and relationships of the FBE environment. The data model 
is transaction- (event-) based and concentrates on information flow in order to categorize 
and store the data. These events provide the logical links between the identified entities 
and the capability to query the system for desired information. Finally, a prototype 
application against the data model was developed to facilitate data entry, modification, 
and querying. 
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I. INTRODUCTION 



A. BACKGROUND 

In a world full of uncertainty and the possibility of conflict, our country’s military 
personnel must be prepared to deal with any number of potential threats. Preparedness is 
crucial, but training for certain scenarios may be economically infeasible for and/or 
logistically impossible to support. 

In order to prepare for such scenarios and to test war fighting doctrine and 
philosophy, our armed forces have developed two types of training: Fleet Battle 
Experiments (FBE) and War Games. A War Game is an exercise that the military and 
other defense organizations use in order to gain experience at making decisions in diverse 
scenarios. War Games typically use computer simulations, also known as Synthetic 
Theaters of War (STOW), but may also be designed as discussion groups. for system and 
doctrine experts. Objectives chosen are aimed at testing particular systems, practicing 
specific maneuvers and tactics, providing familiarization with certain environments and 
situations, and/or enhancing and honing decision-making skills. War Game scenarios are 
chosen so they are plausible and relevant to the objectives of the game. They are most 
effective for testing strategic and tactical levels of warfare. 

FBEs are designed as genuine experiments, not demonstrations or exercises. 

Each experiment has a hypothesis and specific, carefully considered measures of 
effectiveness. Products from the FBEs include: new doctrine; new insight into 
technology in an operational environment; identification of new required operational 
capabilities; identification of new acquisition requirements; ideas for further warfare 
concepts; and ideas for further experimentation. FBEs are useful at testing all levels of 
an operation from strategic to operational. [Ref. 11] 

The information and knowledge that is produced during the war game is vast and 
complex. The data produced is of varying types, recorded in dissimilar ways, and is 
related in a complex manner. Experiential knowledge from an FBE is carried away by 
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the participants and is rapidly dispersed by personnel assignments and tasking. This 
information would be of great benefit to future scenario design and to provide decision 
support to the participants. Unfortunately, it is too diverse to be appropriately collected 
and stored. Consequently, there is currently no appropriate approach or mechanism to 
systematically capture, retrieve, and analyze the data collected from an FBE. 

Currently, several disparate systems are used to manage data for a FBE. For 
example, Land Attack Weapons System (LAWS) and Global Intelligence, Surveillance, 
and Reconnaissance System (GISRS) provide weapon and sensor node data management 
as well as the data repositories for these objects. This collection of heterogenous systems 
causes problems in the integration of the data for the purpose of querying and analysis. 
Additionally, data stored in these systems may not be accurate due to the data input and 
collection methods used. For example, a large portion of LAWS data is entered manually 
and therefore may be inaccurate and incomplete. 

B. PURPOSE 

The purpose of this research is to ascertain the feasibility of developing a 
prototype relational database system for storing and managing FBE data. Such a 
database system would enable analysts to retrieve data and information from past 
experiments for the purposes of analysis and extracting lessons learned to benefit future 
experiments. 

This research is part of a larger effort to develop a knowledge base system to 
support FBEs by transferring knowledge obtained from past experiments to the 
appropriate context of a current experiment. To accomplish this elaborate task, a four- 
phased approach is being considered. 

The first phase, the focus of this thesis, develops a data model and application for 
storing and managing the quantitative aspect of FBE data. More specifically, this first 
phase provides: 

1. Collection of the data and functional requirements needed for the data model and 
application system. 
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2. Development of a data model that consists of the entities, attributes, and relationships 
of FBE data. 

3. Development of an application system that defines the main queries, forms, and 
reports of the developed data model. 

4. Development of data import facilities that populate the developed database with data 
from other archival systems (e.g., LAWS). 

5. A prototype data management system tested with actual FBE data to evaluate its 
functionality, usability, and effectiveness. 

The second phase develops an ethnographic model to collect and manage the 
qualitative aspects of FBE data. The third phase integrates the first two efforts into a 
loosely defined “Knowledge Management System.” The fourth phase evolves the 
product of the third phase into a full-fledged knowledge management engine and system 
using an appropriate technology (e.g., object-oriented, Web, or collaborative 
technologies). 

C. SCOPE AND METHODOLOGY 

This thesis focuses on the collection, storage, and analysis of tracking and 
targeting data. Development of the system involved designing a schema (data model) 
that consisted of entities, attributes, and relationships of the FBE environment and 
structure (both physical and logical). The personnel structure was studied for data model 
completeness, but not implemented in the prototype system. 

The data model is transaction- (event-) based and concentrates on information 
flow in order to categorize and store the data. It represents the information exchanges 
and data links that are the focus for this research. This approach provides logical links 
between the identified entities and the capability to query the system for desired 
information. A prototype application was coupled with the database to complete the data 
management system and facilitate data entry, modification, and querying. 

The following research methodology was implemented to properly develop the 
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system. The architectures of fleet battle experiments and war games were studied. 
Elements and entities of the architectures were discussed to establish their significance to 
the overall structure, and personnel were interviewed to determine information flow and 
critical points of information exchange. 

A schema was developed in an attempt to capture the essence of the FBE 
architecture. The schema was analyzed to ensure that critical entities were accurately 
defined and that key information was not overlooked. Relationships were studied to 
guarantee proper entity interactions and dependencies. 

Upon data model approval, some requirements were gathered for application 
implementation. Application interaction with the database was then tested and 
requirement completion verified. 

This thesis is organized as follows. Chapter 2 discusses the overall framework of 
FBEs, data sources, and collection methodologies. Chapter 3 discusses the data model 
developed and its components. Chapter 4 addresses the application created and its 
capabilities. The final chapter addresses benefits, shortcomings, and lessons learned and 
provides some recommendations for improvements to the system. 
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II. OVERVIEW OF FLEET BATTLE EXPERIMENTS 



A. FRAMEWORK 

The Chief of Naval Operations (CNO) established the Maritime Battle Center 
(MBC) at the Naval War College (NWC) in Newport, Rhode Island, to serve as the single 
point of contact for Navy Fleet Battle Experimentation and participation in Joint 
Experiments. This action was the first step in streamlining and invigorating the Navy’s 
warfare concept development, doctrine refinement, and warfare innovation process. 

The MBC is responsible for designing and planning Fleet Battle Experiments, 
coordinating the execution of these experiments in conjunction with the numbered fleet 
operational command elements (OCE), and analyzing and disseminating experiment 
results. The FBE results are used to accelerate the delivery of innovative warfare 
capabilities to the fleet, identify concept-based requirements, and evaluate new 
operational capabilities. 

The Navy Warfare Development Command (NWDC) was officially established 
on 10 August 1998 in Newport, Rhode Island. [Ref. 11] 

B. DESCRIPTION 

Each FBE has a hypothesis and specific, carefully considered measures of 
effectiveness. FBEs produce, new doctrine, new insight into technology in an operational 
environment, identification of new required operational capabilities, identification of new 
acquisition requirements, ideas for further warfare concepts, and ideas for further 
experimentation. 

Unlike a war game, a FBE involves real components and assets. Military units 
are employed and the exercise is executed in a real-world environment. However, some 
computer systems may be used to supplement the real environment by ‘injecting’ 
synthetic, or virtual, targets into the experiment. 



c. 



ORGANIZATIONAL STRUCTURE 



Two types of organizational structures can be examined. One is the authorities 
and personnel that design, plan, and execute the FBEs and the other is the organizational 
structure of the FBE itself. The organizational structure of the experiment is adaptable to 
the scenario and objectives addressed by the experiment’s concept of operations. 
Therefore, the objectives determine the procedures followed by the personnel taking part 
in the experiment and the flow of information during the exercise. 

1. Design, Planning, and Execution 

The structure of the authorities ruling over the FBE organization and its 
procedures begins with strategic level involvement. 

The MBC is a CNO sponsored command chartered to conduct FBEs that examine 
new technologies and new operational concepts in the context of the Navy of the future. 
The results of FBEs are used to accelerate the delivery of innovative warfare capabilities 
to the fleet, identify concept-based requirements and evaluate new operational 
capabilities. [Ref. 10:p. 2] The MBC is responsible for designing and planning FBEs, as 
well as, coordinating the execution of these experiments in conjunction with the 
numbered fleet operational command elements (OCE), and analyzing and disseminating 
experiment results. 

2. The Experiments 

Although FBE architectures may differ due to changing objectives, the basic 
structures are similar. This research was based mostly on FBEs E, F, and G, with a 
concentration on FBE-G. 

The MBC and the Commander, U.S. SIXTH Fleet (C6F) jointly conducted Fleet 
Battle Experiment Golf (FBE-G). C6F Staff and the Navy Warfare Development 
Command focused on large themes of dynamic sensor management, decentralized 
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operations, and sensor, actor, and decision-maker synchronization. These themes were 
chosen to support an investigation of the emerging Network Centric Warfare (NCW) 
hypotheses in the pursuit of dynamic attack operations. [Ref. 10:p. 68] 

NCW focuses on shortening the Detect-to-Engage timeline. A critical part of 
shortening the timeline is being able to respond effectively against emergent high threat 
targets, or Time Critical Targets (TCT). 

The experiment focused on the Time Critical Targeting process using a dispersed 
command, sensors and engagement architecture to allow forces to respond quickly to 
fleeting targets and allow them to commit weapons and move sensors with knowledge of 
the impact those decisions would have. TCTs are a subset of Time Sensitive Targets. 
Time Sensitive Targets are fleeting targets that can only be effectively engaged during 
limited periods of time. TCTs are targets requiring immediate response because they pose 
(or soon will pose) a clear and present danger to friendly forces or are high-value fleeting 
targets of opportunity. [Ref. 9:p. 55] 

The primary goal was to apply the concepts of NCW to the Joint Task Force 
(JTF) structure. It included Intelligence, Surveillance, and Reconnaissance (ISR) asset 
management and allocation of resources, the use of ASW search methodology for land 
targets, weapon apportionment and sensor-weapon-target pairing. FBE-G applied a 
distributed Command and Control (C2) architecture, in contrast to the centralized C2 
architectures of earlier experiments. [Ref. 9:p. 4] 

Figure 1 depicts the traditional C2 structure for FBE-G with the inclusion of the 
concept of Maritime Control Centers (MCC). It is intended to empower individual units 
at various levels in the traditional C2 structure to act autonomously in the engagement of 
TCTs. The decentralized network is used to facilitate the process. While the traditional 
C2 stmcture remains in place for deliberate strikes, a network centric approach is 
employed in the specific case of TCTs to accelerate the speed of effects. [Ref. 9:p. 15] 

A Maritime Control Center is a combined sensor, engagement and command node 
that has been allocated and apportioned three key assets: Battlespace; Resources, both in 
sensors and weapons; and Autonomy of Action within Commander’s Guidance and Rules 
of Engagement. [Ref. 9:p. 16] 
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Figure 1 Command and Control Organization for FBE-G with MCC Concept Included 
(MCC Units Designated with Asterisk). After Ref. [9] 



Information was disseminated throughout the forces taking part in the exercise 
and each unit was granted some autonomy in deciding if they could effectively engage 
the targets. [Ref. 9:p. 5-7] This method of tasking was used in hopes of improving 
reaction times and effectiveness in engagements. 

Figure 2 is a representation of the sensor network for FBE-G. The sensor grid 
was composed of decentralized, distributed sensor nodes. Sensor nodes were 
controlled/focused using distributed collaborative planning and a shared workspace. 
Sensor nodes directly controlled sensors or had access to the controllers for near real time 
flexing of assets. Sensor reassignment and geolocation requests were shared through a 
common workspace; sensor management chat-rooms. [Ref. 9:p. 9] 
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D. DATA OF A FBE 

The amount of data produced during a fleet battle experiment can be 
overwhelming. Although extremely diverse in its types, formats, and sources, the data 
extracted from a FBE can be classified under two main categories: quantitative and 
qualitative data. 

Quantitative data makes up the greater part of the data and is the focus of this 
project. Quantitative data is typically raw, unprocessed data such as times, quantities, 
and locations. This type of information can be classified, stored, and queried more easily 
than qualitative data. It is factual, precise, and indisputable. Few things can be done with 
quantitative data except using it for decision support and assessment substantiation. It 
includes information on track, target and platform locations, munitions used, times of 
events, and other detailed information. 

Qualitative data includes opinions and assessments developed by personnel after 
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examination of massive amounts of information (quantitative data). Qualitative data is 
the result of analysis and is derived by experts based on their examination of the 
quantitative data. It may be a determination of the relevance or condition of an event or 
action. This kind of data is not always obtained from a specific source and may not be 
exact, factual, or precise in nature. It is debatable and irregular in its configuration, 
making it very hard to store for future referencing. It is filtered and assessed by 
knowledge experts and data collection personnel. 

1. Sources and Collection 



Fleet battle experiment data is produced at numerous locations by several sources. 
Sources of qualitative data include both civilian and military personnel taking part in the 
experiment as well as data collection and analysis personnel. Assessments, decisions, 
and other factors can be used to determine effectiveness and correctness of actions in 
addition to ascertaining if a problem w r as encountered in a system or process. 

Quantitative data is provided by. or can be extracted from, systems such as Land 
Attack Weapons System (LAWS) and Global Intelligence, Surveillance, and 
Reconnaissance System (GISRS). LAW^S and GISRS provide the capability to manage 
weapon and sensor nodes real time, respectively. Tables 1 and 2 list the engagement and 
sensor nodes (platforms) and assets (weapons, sensors) contained.by each. 



Platform 


Weapon 


i USS Anzio 


TLAM.TTLAM/E RG M/LASM i 


! USS CaDe St. George 


Ti_AM/TTi_AM/E R G M/LAS M. 1 


■ USS Hartford 


TLAM/TTLAM 


NUWC (Sim SSN) 


TLAM/TTLAM 


j P-3 ‘ 


SLAM-ER 


I TACA1R from USS Eisenhower ! 


JDAM/JSOW/PGM/SLAM-ER | 


i 7ACAIR from JFACC 


i JDAM/JSOW/ PGM 


1 SOF 


Direct Action. 



Table 1 Engagement Nodes and Assets for FBE-G. 

Systems such as LAWS and GISRS, though they seemingly categorize and sort 
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data, are still reliant upon personnel for data entry. This introduces the possibility of data 
input irregularity and inaccuracy. Much information is left blank due to the rapid pace of 
activity during the experiment. This introduces the problem of data absence, which must 
be handled by the data collection personnel at a later time. They correct these problems 
by either inferring actions and results or attempting to gather the information from other 
sources, then back logging the information into the systems. 



Location 


Sensors 


CJTF (C6F onboard LaSalle) 


NTM, U-2 


JFACC (CCDG 5 on MTO) 


JSTARS GS, Global Hawk, Rivet Joint, HIRIS 


JFMCC (CCDG 8 on USS Eisenhower) 


APY-6, TARPS, Predator, EP-3 


USS Anzio 


VTUAV, 


USS Cape St. George 


VTUAV, 


CTF-69/USS Hartford 


ELINT, SOF 


CTF-67/TSC Sigonella 


AIP P-3 


JSOTF (cell on MTO) 


SOF, UGS 


JAC Molesworth UK 


All National and Theater Sensors 



Table 2 Sensor Nodes and Assets for FBE-G. 



Other sources include records kept by personnel during the execution of the 
exercise and interviews or discussions held afterwards. Information gathered from 
personnel will tend to be more imprecise and difficult to sort, categorize, and store 
appropriately due to variation. 

The primary concern for the latest experiments has been track acquisition and 
reaction time reduction for assessments. Track acquisition, assessment, and engagement 
events produce the majority of the information gathered about the exercise. However, 
information concerning weapon utilization and effectiveness, message delays, and 
situational awareness is also determined and gathered by personnel. 

Manual recording of information by FBE personnel constitutes the bulk of the 
information collection effort. Data concerning tracks, targets, platforms, decisions, and 
many other factors is recorded on either forms that personnel are afforded or is entered 
into data repository systems such as LAWS. 
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Because of this methodology, data collection is inconsistent and the data entered 
may vary based on the person recording. This irregularity in data formats produces 
another problem at the time of data analysis. 

The latest version of LAWS, demonstrated in FBE-G, was utilized with some 
problems and many records were incomplete and inaccurate. Time formats were not 
clearly defined and fields were frequently left blank. Because of this, few tests could be 
run to determine the effectiveness of data analysis concerning the event timeline. 

Target Location Error information, provided by mensuration events, was entered 
into the remarks fields along with other random, unrelated information. Other 
information, such as platform identification and threat types, was formatted improperly 
making data filtering very difficult. Data transfer into event entities was also problematic 
and complicated because of the varying ways the data was recorded. 

2. Storage 

The classification of the data is an arduous task. Current methods have personnel 
studying this data and then categorizing it by source, subject, and type. 

Data storage is of great concern because access to data from past experiments 
could be used in designing and performing future experiments as well as providing 
decision support to participants. Analysis of data from various experiments is nearly 
impossible because of the sheer magnitude of information. Knowledge management 
experts and data collection personnel work hand in hand to try to find trends in the data 
and to determine difficulties in the processes. Difficulties could be attributed to system 
overloads or to human error. By storing data more effectively, the hopes are to make data 
access easier and data collection and categorization faster so data comparison and 
analysis can be performed more effectively and efficiently. 

Databases have been created to store the data from FBEs, but with limited 
success. These databases are designed mainly for storage of text strings. The 
information is categorized after the experiment is executed. Personnel collect, analyze, 
and categorize the data (mostly comments and assessments made by FBE participants) 
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based on the subject matter, the sources, and the conclusions made. This data is labeled 
accordingly and stored in a database that can reference it at a later date by those 
categories. 

This provides few querying options. The data can only be extracted in the form in 
which it is entered. Few, if any, conclusions can be drawn from the information and 
searches are predetermined to fit a specific request because no real links, other than 
categories, can be made between the different pieces of information. 

Data provided by systems, such as LAWS, is stored in those systems to be studied 
and disseminated by personnel. Associations between data in separate systems can only 
be made through human involvement. There is no existing way to manipulate and link 
the data across differing systems. Trends and logical relationships are difficult to 
determine, if at all possible. 

3. Information Flow 

The flow of data begins at the time of acquisition. A sensor acquires a track and 
information pertaining to the track, sensor, and time of acquisition are all logged. Once 
the target has been positively identified, it can be redesignated from a Unidentified 
Assumed Enemy (UAE) state to Hostile (HOS). At that point, the HIT will be 
redesignated as a target (TGT). This status will be updated in the Digital Track Folder 
(DTF) and made available to all engagement cells. [Ref. 9:p. 19] 

As shown in Figure 4, the track is then submitted (nominated) as a possible target 
by a GISRS terminal. Targets that are being actively prosecuted by a sensor will be 
additionally labeled as a High Interest Track (HIT). This will indicate that target 
mensuration and refinement are in progress. [Ref. 9:p. 19] 

Mensuration is used because some tracks may require more detail, or more 
precise information, pertaining to location, altitude, threat type, etc. A request for 
mensuration may be sent by the acquiring terminal to a Precision Targeting Workstation 
(PTW) or a Joint Targeting Workstation (JTW). Once a nomination is requested and 
mensuration information received, the track is determined to be a viable target or not. If 
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evaluated as a viable target, a fire command with pertinent information is sent to all 
platforms available. Providing all assets with as much information as possible so that, 
through autonomy, the most effective solution can be achieved is the net-centric 
ideology. Geosolution is considered complete when the target solution is good enough to 
engage with at least one available weapon. [Ref. 9:p. 19] 



FBE-G ENGAGEMENT PROCESS 




* TOT Cell Laws refers to any cell that control weapons. 

** Includes ROE, command guidance and opportunity for command by negation. 



Figure 3 Detailed Engagement Process. After Ref. [9] 



The distinction between tracks and targets hinges on the assignment of a weapon 
to a track. FBE-G operations outline that a track was not considered a target until it was 
assigned a weapon. A platform to engage a target is assigned upon issuance of a fire 
command. Figure 5 displays the engagement net used for FBE-G consisting of the 
platforms and the weapons contained within them. For FBE-G all platforms were issued 
a fire command upon target acknowledgment. The “Target-Weapon” pairing, as referred 
to by FBE personnel, is represented in the schema by including the Weapon Type 
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attribute within the Target entity. 




At this point the autonomy aspect of the experiment is apparent. Once provided 
with firing information and given the authorization to fire, the individual platforms may 
determine if they are to engage the target. Upon engagement, or firing, information is 
continuously exchanged between platforms, sensors, and other systems to determine 
impact and assessment of the target after impact. 

All this information is time-stamped in order to be able to reproduce a time line of 
events at a later date and to determine any information bottlenecks, problems, or 
variation. This information is also useful in analyzing decision-making skills by the 
commanders and other decision-makers involved in the experiment. 

The information flow is reproduced in the database schema through the use of key 
fields that relate each entity and/or event. Time attributes in each object provide the 
timeline information that is crucial to event recreation. Figure 5 provides an overview of 
the TCT process from track acquisition to target engagement. 
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III. DATA AND APPLICATION DESIGN 



Databases have been utilized to store the data from F3Es. but with limited 
success. These databases are primarily used for storage of text, and searches on these 
databases are subject-based, not event-based. No practical attempts had been made in 
designing a schema that would effectively support storing and querying FBE data and 
provide customized results to meet user needs. 

Relational databases store data in tables and enable applications written against 
this data to retrieve and update data from these tables. In order to maintain an effective 
and efficient database, data redundancy and inconsistency is eliminated by ensuring that 
fields related to the same category of data are stored in the same table. Relationships 
between tables allow for retrieval of related data stored in different tables. The types of 
relationships supported by a relational database are One-to-One. One-to-Many, and 
Many-to-Many. Many-to-Manv relationships are implemented by creating two One-to- 
Many relationships and using a third table as an intersection to store the relationship 
between the two tables. Some common examples for each relationship are Employee-Job, 
Department-Employee, and Students-Ciasses. respectively. 

Normalization is an important concept to relational databases that eliminates 
inconsistencies and minimizes inefficiency. A fully normalized database stores each 
piece of information in the database once with each entity represented in a table that is 
uniquely identified by its own primary key. A primary key is an attribute that uniquely 
identifies a record. Normalized tables allow users to reference any piece of information 
in other tables by linking them together through the foreign keys. A foreign key is an 
attribute in a table that links to the primary key in another table. 

A. SCHEMA DESIGN 

A schema is a mapping of the database. It diagrams all the tables, fields, and 
relationships in the database. The schema for the prototype database was designed to 
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account for ail entities and relationships that represent the architecture of the FBE. (See 
Figure 6.) This includes personnel, command cells, and roles occupied by personnel. 
Although these entities are not the primary points of interest of the prototype system, they 
are included in order to provide a complete picture of the structure and to allow for 
growth of the system in future development stages. 




Figure 6 Fleet Battle 



Experiment Database Schema with All Entities Represented. 



As previously mentioned, the schema is transaction- (event-) based. The data 
model represents the interactions between different systems and information sources by 
concentrating on the logical events and the information transferred rather than the 
physical objects manipulating the data. 
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Entities represented in the data model represent both logical and physical objects. 
Event entities such as track acquisitions, target nominations, firing commands, and target 
engagements are events that occur during the experiment and are examples of logical 
entities in the data model. Physical entities are those such as platforms, sensors, 
weapons, and personnel. 

In the remainder of this section we describe the main entities of a FBE and how 
they relate to each other. These core entities include Platform Type, Sensor Type, Threat 
Type, Weapon Type, weapon, sensor, and mensuration information managers. 
Acquisition, Mensuration, Nomination, Target, Route, Fire Command, Fire, Impact, and 
Reposition events, operational cell and command center nodes, and personnel. 

• The Platform Type entity defines the general types of ship, aircraft, or other 
vessels that will participate in the FBE. Information related to a type of 
platform is stored in this entity. For example, the USS Dwight D. Eisenhower 
is a specific vessel of type CVN. A platform is involved in acquisition, 
mensuration, fire command, impact, and reposition events. Since a platform 
type can contain other platform types as assets (i.e., a cruiser owns a 
helicopter as an asset), a recursive relationship needed to be established for 
the Platform Types entity. 

• A platform type entity can be related to many Platform entities which 
describe specific platforms. 

• The Threat Type entity represents the various expected threats that will play 
a part in the FBE. A type of threat can be part of many instances of 
acquisition events and is therefore a part of the acquisition event definition. 

• The Sensor Type entity defines the generic sensor types that will be used in 
the FBE. Any type of sensor can be used for multiple acquisition, 
mensuration, and impact events. 

• Similar to the Sensor Type entity, the Weapon Type entity describes a 
generic weapon that will be used in the FBE. A weapon type can be linked to 
many platforms and can be used against many targets. 

• A Mensuration event is the request for more precise information on a 
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particular track. An acquisition event may produce more than one 
mensuration event but a mensuration event is requested by a specific 
acquisition event and a GISRS or LAWS terminal. Mensuration requires the 
involvement of a platform and sensor, which may or may not be the same as 
the acquiring platform and/or sensor, and a PTW terminal. Any platform, 
sensor, and PTW terminal may be involved in more than one mensuration 
request. The inverse is not true, however. 

Weapon, sensor, and mensuration information managers are known as 
LAWS, GISRS, and PTW Terminals, respectively. These terminals are 
used during mensuration, nomination, and route events. 

An Acquisition event defines the acquisition of some threat or the creation of 
a track by a sensor. This entity is an intersection of the threat type, sensor 
type, and platform entities. It links a threat type with its acquiring sensor and 
the platform on which that sensor is located through the use of foreign keys 
from those entities. A platform, sensor type, and threat type can be linked to 
many acquisition events, but a specific acquisition event may only posses one 
platform, sensor type and threat type. 

A Nomination event is the recommendation from some GISRS or LAWS 
terminal to designate an acquired track as a target. As with the mensuration 
event, it is initiated by an acquisition event. The nomination requires 
information from the mensuration event in order to arrive at a valid 
assessment of the track and determine if it should be considered a target. A 
nomination also requires a GISRS terminal for the data analysis. 

A Target is a track that has been assigned a weapon by a nomination event 
(target-weapon pairing) and designated as a target for engagement. A target 
therefore links the track from an acquisition event (by way of a nomination 
event) and a weapon type. A specific nomination event can produce 
numerous targets if multiple attacks on the track are desired. A weapon type 
can be used in many target-weapon pairings and therefore linked to many 
targets. If more than one weapon is assigned to a track then the different 



assignments are appointed different target ids. 

• Route events are the product of a LAWS terminal and contain flight and 
target information specific to the target- weapon paring of a Tactical 
Tomahawk Land Attack Missile to a target. 

• The Fire Command entity is an event identifying the assignment of a target 
to a specific platform (not a platform type). A target could create many fire 
commands (be assigned to many platforms), but the data used in this research 
only provided examples of one firing command per target id. 

• A Fire event is the actual firing of a weapon by a platform, or the engagement 
of the target. A firing command usually produces only one fire event because 
a firing of multiple rounds is recorded as one firing and the number of rounds 
is recorded as information for that event. 

• An Impact event is the result of a firing event. The assessment of the impact 
is part of this event and involves the use of a platform and a sensor for 
gathering data. 

• In order to keep information concerning weapon magazine information on 
platforms, an entity called Platform- Weapon Status was created. This links 
a specific platform with the weapon types used and could help track weapon 
usage during FBEs. 

• The Reposition event is used for information concerning platform movement 
during an FBE. Its information is specific to one platform for a specific range 
of time and can be used to track asset management and platform availability 
after the conclusion of the FBE. 

• Command Centers represent authority units in the FBE that make critical 
decisions and assessments. They control strategic decisions and asset 
management. The Common Operating Picture (COP) is in reality an 
assessment made by personnel who have studied information about the 
environment. It is the product situational awareness. The COP is defined by 
Command Centers. 
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• Operational Cells are similar to Command Centers but tend to control 
specific actions and platforms. They provide lower-level decision making 
power. They are linked to targets because of their influence in determining 
the viability of a target and the assignment of platforms to targets. 

• The Personnel entity contains information about specific individuals such as 
name, rank, and service. These individuals may be assigned many jobs, or 
Roles. Many Roles have the same titles because they perform the same tasks 
and responsibilities but on different platforms. Therefore, personnel and their 
roles are linked through the use of an entity called Role Assignment. This 
entity can then be related to specific platforms and cells as necessary. 

• The FEE entity was created to store FBE specific information such as dates 
and location for the experiment. The entities Acronyms, Data Types, 
Initiatives, Objectives, and Questions hold respective information pertaining 
to the experiment. They are entities created to store specific information and 
have no necessary relationships with any of the other entities. 

B. APPLICATION DESIGN 

Due to the lack of user defined requirements for application implementation, 
some assumptions had to be made regarding querying and reporting capabilities. 



1. Querying 

Due to the novelty of the concept for this system, FBE personnel had a difficult 
time formulating application requirements and provided few suggestions concerning 
system-querying capabilities. Several querying options were formulated and presented to 
the user. These suggestions were acknowledged as likely and beneficial options so they 
were implemented as predefined, or “canned”, queries. In general, these queries extract 
information on the main entities based on different arguments or parameters. A detailed 
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description of these quenes is presented in the following chapter. 

In order to provide some flexibility for users a custom SQL-based query option 
was also included in the design of the system. 

2. Reporting 

The same situation occurred with report specifications. It was determined that 
reports should be provided for query results. Due to lack of requirements, reports that the 
author felt would be most useful were defined and discussed with the user. A decision 
was made to make their design as simple as possible in order to allow for future 
modifications. Simplicity was also a benefit in reflecting the information provided on- 
screen by the application. 

In the next chapter we discuss the implementation of the database and application 
designed in this chapter. 
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IV. DATA AND APPLICATION IMPLEMENTATION 



A prototype Database Management System (DBMS) was implemented from the 
data and application design described in the previous chapter. A coupling of Microsoft® 
Visual Basic and Microsoft® Access 97 was chosen in order to combine the power of 
Microsoft® Access 97 database processing capabilities with the ease of user interface 
development of Microsoft® Visual Basic in order to meet the users’ needs. The 
simplicity of connecting the two applications was also an important consideration. 

By keeping the database separate from the application, the database could be 
migrated to other SQL-based databases without the need to re-write or modify the 
application. 

A. DATABASE IMPLEMENTATION 

The database for the prototype system was implemented in Microsoft Access 97. 

It is a relational database management system and was chosen primarily because of its 
popularity, flexibility, and wide use. Data produced during the FBE is categorized and 
stored by the logical event that produced it. 

Since the storing of data from multiple FBEs in a single database could eventually 
tax the speed and querying capabilities of the system, it was decided that each FBE would 
have its own database. In other words, a database will contain data from only one FBE. 
Some reasons for this decision are 1) it keeps the volume of data in a database to a 
manageable size so that queries are not slowed and 2) it allows for changes to be made 
easily for each experiment. The latter reason addresses the differences in FBE objectives 
and the changing information requirements to support those objectives. A third reason is 
somewhat related to the latter. If a specific record of an entity is altered between FBEs, 
then that record’s information pertaining to the previous FBE will be lost. This makes 
the linking of that entity’s information to prior FBEs impossible. 

The design and military structure of FBEs assigns discrete names or designations 



25 



to the units involved, which provides a unique identifier, or primary key, for each entity. 
This simplified the task of determining entity classifications and ensuring distinctions 
among instances of the same entities. 

Twenty-five tables, representing logical events and physical entities in the FBE 
architecture, were created in order to accommodate the normalized data. However, other 
FBE information pieces specific to the FBE design were necessary so additional tables 
were created. These include FBE attributes (such as dates and title), acronyms, 
initiatives, objectives, and questions. Two more tables were added to support data import 
and filtering from LAWS and other possible sources. 

For the implementation of the database schema, twenty-one entities were 
concentrated on with fifteen of those having relationships with each other. I will now 
discuss the implementation of the entities as tables in an Access database. (Figure 7) 

• The Platform Type table contains information related to a type of vessel that 
is used in the FBE. The primary key for this table is the asset’s generic 
acronym used by the military. For example, CVN (aircraft carrier, nuclear), 
CG (guided-missile cruiser), and SSN (fast-attack submarine, nuclear). 

• The Sensor Type table contains the generic sensor types that will be used in 
the FBE. The primary key for this table is the typical name or acronym used 
by personnel. Examples include UAV (unmanned aerial vehicle) and RECO 
(reconnaissance personnel). 

• The Threat Type table contains the various expected threats that will play a 
part in the FBE. The primary key used is the generic designator used to 
address a threat such as NODONG (a type of ballistic missile), SAMI (a 
surface-to-air missile), or MOBRDR (acronym used for mobile radar). 
Attributes for threat description and capabilities more clearly define this table. 
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Figure 7 Schema of Entities Implemented in Prototype Database. 



• As with the previous tables, the Weapon Type table defines a nonspecific 
entity and contains weapons that will be used in the FBE. The primary key is 
the military term applied to the weapon. Examples include: AGM (air-to- 
ground missile), AIM (air interceptor missile), and SLAM (Stand-off Land 
Attack Missile). Weapon Type also includes a Description attribute. 

• LAW'S, GISRS. and PTW Terminal tables represent weapon, sensor, and 
mensuration information managers, respectively. These terminals are used 
during mensuration, nomination, and route events. The LAWS, GISRS. and 
PTW 7 Terminal entities all possess like attributes. They are defined by their 
location and functionality attributes. For future schema development efforts, 
these terminal types could be implemented as one table with a defining 
attribute determining the type of terminal as a LAWS, GISRS, or PTW/JTW. 

• The Platform table contains occurrences of a specific platform type. The 
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primary key for this table is the platform's designator. For example, the USS 
Dwight D. Eisenhower is a specific vessel of type whose designator is CVN- 
69. A foreign key from the platform type table provides information specific 
to the type of platform. The platforms specific mission or specialty can also 
be stored in this table. For data importation from LAWS, a table containing 
the LAWS designation for the platform is also included in the table's 
definition. 

An Acquisition event table defines the acquisition of a track by a sensor. 

This table’s primary' key is a concatenation of an abbreviation distinguishing it 
as an acquisition event and an AutoNumber counter kept by the database. The 
table contains three foreign keys that links a threat type with its acquiring 
sensor and the platform on which that sensor is located. Other significant 
attributes include the track id determined bv the acauiring terminal and track 
information such as altitude, speed, and location. 

A Mensuration event table is the request for more precise information on a 
particular track. The instance of a mensuration event links a platform and 
sensor, which may or may not be the same as the acquiring platform and/or 
sensor, and a PTW terminal. Its primary key is also a concatenation of an 
abbreviation and an AutoNumber counter. Foreign keys from the mentioned 
entities help define the event. A foreign key specifying a GISRS terminal as 
an information source is also an attribute of this table. Attributes to store data 
concerning information request and receipt times are present in this table as 
well. 

The Nomination event table uses a primary key composed in the same 
manner as the acquisition and mensuration primary keys. Because a 
nomination requires information from a mensuration event, a foreign key from 
the mensuration table is included. A foreign key from the acquisition table is 
also an attribute. An assesment field is provided for qualitative information 
that may have had a specific influence on the nomination event. 

Tne Target table links the track from an acquisition event (by way of a 



nomination event) and a weapon type by including foreign keys from both the 
nomination table and the weapon type table. The primary key is specified by 
GISRS and LAWS terminals. Post-mensuration information including time of 
designation as a target, location, speed, and “No Later Than” time are stored 
in this table. The “No Later Than” time specifies a time at which, if the target 
has not been engaged, it ceases to be a time critical target. 

• The Fire Command table primary key is created in the same manner as the 
other event primary keys. This table contains the platform and target table 
primary keys as foreign keys. It also contains attributes stating the time the 
command was sent and received, as well as if a weapon was actually launched 
at the target. 

• A Fire event table is the actual firing of a weapon by a platform, or the 
engagement of the target. Its primary key is a concatenation of an 
abbreviation and an AutoNumber. The Fire Command that produced the Fire 
event is stored in this table using a foreign key. The number of rounds and 
time of firing is also recorded. 

• An Impact event table is the result of a firing event. Its primary key 
resembles those of the other event tables. The assessment of the impact 
involves the use of a platform and a sensor for gathering data. Foreign keys 
for both are stored in this table as is the target impact time and the fire event 
that led to the impact event. 

• The FEE table uses the FBE name (i.e., E, F, G) as its primary key. It 
contains the start and end dates and the location of the experiment. The 
Acronym, Data Types, Initiatives, Objectives, and Questions tables contain 
memo data type fields that hold respective information that can be search as 
strings. 



Referential integrity requires that records in tables providing information for other 
tables must exist prior to the creation of the record in the dependent table. Information 
flow dictates which entities need to be created prior to others. The schema follows the 
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logical chain of events of the experiment therefore events must be created in the order 
dictated by the information flow - acquisition, mensuration, nomination, target, fire 
command, fire, impact. 

Data types and formats for all attributes were determined by the information 
sources and their current formats and usage of the data. Because of the variance in data 
types and formats table attributes were weakly defined. Most attributes are of text data 
type to allow for manipulation of the data and a broader variety of formats. This is true 
of time information. Access and Visual Basic do not recognize time information stored 
in Military Date-Time format. Therefore, the times in the database are stored as text 
fields. This means that any analysis or comparison on this type of information must be 
performed by the application by using string manipulation. 

B. APPLICATION IMPLEMENTATION 

The application interface for the DBMS was designed and impemented using 
Microsoft® Visual Basic 6.0: Professional Edition. 

The application involved the creation of twenty-eight graphic user interface (GUI) 
forms that allow the user to add, delete, modify and query the data stored in the database. 
The application uses both Visual Basic data objects and virtual recordsets in order to 
access the database. Controls such as text boxes, dropdown list boxes, command buttons, 
and menus are used to facilitate data entry and modification, as well as form and record 
navigation. 



1. Forms 

Upon execution of the application executable program file, a module containing 
the Main sub procedure is used to determine the database file to be opened by the 
application. An Open File dialog box, as in Figure 8, is displayed where the user can 
browse the computer files available for the database file they desire. When the user 
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selects the database file, the filename is stored as the database name and recordsets are 
updated by the application to contain the information from the database selected. (Should 
the user not choose a database file, the main form will be displayed but no search or 
editing options will be available because there is no database selected. The user can still 
choose to open a database v using the File menu option.) 

The main interface form (Figure 9) is then displayed. The user can now use the 
application to modify and search the selected database. 




[H3 



Look at j Vb 




^'1 dbl 

f]G 

%3g2 



Re name; 



I 




Open 



Res of type: 




files ( x .mdb) 



Cancel 



I - Open as read-only 



Figure 8 Open Database Dialog Box Displayed at Run-time. 
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Figure 9 Main Interface Form. 



Forms designed for record addition, modification, and deletion (Figure 10) are 
available to the user under the Add/Delete menu option on the main form. Forms created 
include Acquisition, Mensuration, Nomination, Fire Command. Fire, and Impact Event 
Update forms, a Target Record Update form, a Platform Information Update form. 
Platform, Sensor, Threat, and Weapon Types forms, and Acronym, Data Types, 
Initiatives. Objectives, and Questions forms. 

These forms make use of text boxes and dropdown list boxes to ease data entry 
and modification as well as displaying update, save, add and delete buttons to manipulate 
the records. Data objects, which also serve for record navigation, and virtual recordsets 
are all updated at the time of the form's load event procedure. They provide the data 
links between the Visual Basic form and the database. 

The Add Event button will enable all the data entry fields and clear their contents 
in preparation for addition of a new record. Upon data entry completion the user must 
then select the Save Event button to add the record. The Delete Event button will warn 
the user before submitting the record deletion to the database. 
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Figure 10 Example Update Form (Acquisition Event Update Form). 



To Update or Edit a previously existing record, the user must select the Update 
button. The Update button’s caption will then automatically change to “Submit”. After 
completing all edits, the user will select the Submit button in order to commit the 
changes. 

The user may choose to view all targets stored in the database by selecting the 
View menu option and choosing Targets. This will display the Targets window seen in 
Figure 11. When the target window appears the user may display the time line of events 
corresponding to a specific target by double-clicking the target record they desire. The 
double-click action will display another window (Figure 12) with the time data for every 
event pertaining to that target from acquisition to impact. 
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Figure 11 Targets Window. 



If the user desires to reduce the number of targets displayed by sorting the records 
according to some specific criteria, they can choose the filter option under the File menu 
in the Targets window. This will open the Filters window (Figure 13) and allow them to 
choose which filters to apply and what criteria to filter with. They can select which 
filters to activate by checking the appropriate boxes. Once the box is checked, they can 
then enter or select the criteria they wish to filter with. 

The Apply button will activate the filters that are checked but will keep the Filters 
Window open. The OK button will apply the filters and return the user to the Target 
Records Window. The Cancel window will return the user to the Target Records 
Window without altering any filter settings. 
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Figure 12 Target Timeline Window. 
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Figure 13 Target Record Filters Window. 



2. Menus 

The application was implemented as a menu driven application with the main 
form as the base of form connectivity. By using the main form's menu options users can 
reach the predefined query form, the SQL custom query form, and all entity update 
forms. They can also view the list of targets found in the database and even have limited 
control of the data importation process. They can do all these things with the use of the 
menus available on the main form. Menu options include opening a different database. 
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searching the database using "canned" (previously defined) queries or custom SQL 
queries, editing the database records, and/or populating the database with new 
information from other systems using text file importation. 
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Figure 14 Hierarchical Chart of Menu Options. 

The previously mentioned data import capability is based on a capability offered 
by the latest version of LAWS. The export facility takes user-selected fields from the 
LAWS system database and exports them to a comma delimited text file. Upon creation 
of the text file, the information can be imported to a database table. The table used for 
data import was specifically designed for the exported LAWS data fields, therefore 
adjustments to the source code would have to be made in order to allow' for extra fields or 
for the integration other systems as data sources. However, the system is operational 
with the LAWS export text file format. (The database table is named LAWS in the 
prototype database schema.) Once the table is filled, the data can be sorted and filtered 
for completeness and formatting using the Transfer and Sort options available under the 
Data menu item on the Main form. After filtering, the information can be separated and 
disseminated throughout the database by using the Populate Tables option under the Data 
menu item. This feature ensures that all the information is sent to the appropriate tables 
in the database and in the appropriate order as dictated by referential integrity. 
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3. Queries 



If the user chooses the query option from the main form, then another window 
(Figure 15) displaying the provided queries appears. Option buttons allow the user to 
select the desired query. When an option button is selected, the appropriate controls will 
become enabled. The user selects the criteria and runs the query' using a command 
button. The Submit Query button's code module contains a Select Case clause with 
predefined SQL statements. The option buttons are actually an array of controls whose 
index determines the case to be selected in the source code and therefore the SQL 
statement to be used. The form’s controls provide the arguments used in the statements. 




Figure 15 “Canned” Queries Form. 
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Query results appear in the window shown in Figure 16. Fields displayed 
are predetermined and set in the source code (hard-coded). These queries do not provide 
the user with the option of selecting what information is displayed; only the criteria by 
which to search the database. 




Figure 16 ‘‘Canned” Query Output Window. 

The user selects which query they would like to use by selecting the appropriate 
option button. The applicable controls are then enabled and the user chooses the criteria. 
They then select the Submit Query' button and the Query Output Window' is displayed 
with the results of the query. 

Four of the eight “canned” queries provided filter acquisition events. These 
queries filter the acquisitions by the acquiring platform, sensor type, both the acquiring 
sensor type and platform, and by the threat type of the acquired track. One query filters 
the target records by the weapon type assigned to, or paired w'ith, the target. Two of 
queries concentrate on the nomination events - one searching for the nominations 
accepted as targets and the other searching for the nominations declined as targets. The 
last query on the “Canned” Queries form retrieves all impact events from the database. 

The queries are defined in the source code of the application using cases that 
contain SQL statements set specifically for the individual querying cases. 

For the custom query option, some considerations had to be taken. The biggest 
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difficulty would have been the presentation of the information, but using Visual Basics 
Data Bound Grid Control, the fields are updated through the use of a data object that 
recognizes the SQL-requested fields. 

Should the user select the SQL option from the Main form, the SQL Custom 
Query Window will be displayed. (Figure 17) This window contains a text box in which 
the user will enter the SQL statement desired. Once the statement is entered, the user 
selects the Search button and the information is displayed in the Data Bound Grid at the 
bottom of the form. 

Using this query-method the user has more control over the fields to be displayed 
and can alter the criteria to suit their particular needs. However, those who do not fully 
understand the database schema may encounter some difficulties. 




Figure 17 SQL Custom Query Window. 
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When querying the database, the primary and foreign keys of each table provide 
links between the tables. Because the database is relational, table joins must be created to 
access information from multiple tables. 

In order to extract information from a table that is two relationship links away, it 
is necessary to include the necessary linking information from the intermediary table. 

For example, suppose you want to query information of an impact event and want to 
determine either the firing platform or the target fired upon. The links must first relate 
the Fire event that created the Impact event through the Fire attribute, or field, within the 
Impact event. Then, to retrieve the platform or target ids that reside in the Fire Command 
event another link must be made between the Fire event and the Fire Command event by 
using the Fire Command attribute, or field, within the Fire event. In Standard Query 
Language (SQL) the query would look like this: 

SELECT Impact.FireEvent, Fire.Fire, Fire.FireCommand, 

FireCommand.FireCommand, FireCommand.Targetld, Fire 

Command.FirerPlatform 

FROM Impact, Fire, FireCommand 

WHERE Impact.Fire = ‘JEOOOOl’ 

AND Fire.Fire = Impact.FireEvent 

AND FireCommand.FireCommand = Fire.FireCommand 

The SELECT section chooses the fields the user wants to retrieve and/or compare. 
The FROM section determines the tables in which to look in for the fields named in the 
SELECT portion of the SQL statement. WHERE is the comparison portion of the SQL 
statement specifying the criteria by which records will be eliminated or selected. 

The example SQL statement will query the database for the Targetld and 
FirerPlatform involved in the FireCommand event that produced the Fire event that led to 
the Impact event designated as ‘EEOOOOl’. The statement selects the record in the Impact 
table with an id equal to ‘EEOOOOl’. It then compares this instance’s FireEvent attribute 
with Fire instances until it finds a match. It will then use the FireCommand attribute of 
that instance of the Fire event to find the matching FireCommand instance and provide 
the FirerPlatform and Targetld. 
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A query between tables that lie more than one table away from each other will 
require that each link between intermediary entities be represented in the SQL statement. 

The most important query for this system is also one of the most complicated - 
time queries. The format used for time data poses a significant problem for comparisons. 
The data is stored in Military Date-Time fashion. This is expressed as a string 
concatenation of the day, the time (24-hour), the time zone (Zulu (Z)), the month, and the 
year. In order to be able to compare these times and to perform any calculations, the 
string must be segmented into pieces and each portion compared with the appropriate 
section of another date-time string using string manipulation code. 

4. Reports 

It is possible to export database data to Microsoft Office applications from a 
Visual Basic application through the use of automation. Automation is a process that 
enables applications to communicate and exchange data with each other. 

The Visual Basic application sets a reference to the object library of the 
Automation server to be used; in this case, Word 97®. An instance of the Automation 
server object is created. A recordset object containing the data desired is also created. A 
code module within the Visual Basic application instantiates the object variables and 
sends the data to Word. The data is then exported from the recordset object to the 
Automation server. Word can then be used to produce and edit a document or merely as 
a print engine. [Ref. 4] Once the Visual Basic application opens a document in Word 
97® the manipulation of data and format of the report is controlled in the Word 97® 
application. An example of a report produced and formatted in Word 97® is shown in 
Figure 18. 

Information retrieved from the database using predefined queries, SQL custom 
queries, or data objects (recordsets) can be exported to a report (Word document) by 
using the Word 97 automation server. Reporting capability is available on forms 
displaying entity information by means of a menu option. 
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5. 



Modules 



Visual Basic is an event-driven programming language. Event-driven means that 
procedures (sections of code intended to perform a singular, specific action) are triggered 
by user interactions with the application’s user interface. User actions can vary from 
selecting a menu option to selecting a check box in the window. For Visual Basic, 
modules are groupings of multiple procedures that provide the functionality of a form. 
Consequently, a module exists for each form in the application. The modules that define 
the application are provided as Appendix B for this thesis. 
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Figure 18 Acquisition Events Report Created in Word 97® by Using Print Option on 
Acquisition Event Update Form (Figure 10). 
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c. 



POST-IMPLEMENTATION 



Once the forms were designed and most of the data manipulation code was 
implemented, the prototype was demonstrated. Feedback provided some new insight into 
application functionality and some requirement modifications. 

Difficult at best, application testing was time-consuming and imprecise. 
Troubleshooting was an arduous task because of the lack of available of data and the 
incompleteness of the little data that was available. However, the export facility 
available in the latest version of LAWS provided some data that could be manipulated, or 
massaged, into a usable form and used to test the database schema and the interaction of 
the application with the database. 

Forms properly interact with each other and limited error trapping has been 
included to eliminate database error terminations. 

Further discussions with FBE personnel and personal data analysis have 
demonstrated that the schema developed could be improved by combining some entities 
such as the LAWS, GISRS, and PTW terminal entities. Data such as time needs to be 
formatted in a different manner to allow for more effective querying. Other data fields 
need to be more clearly defined. A lot of fields are defined as text data types, which 
produces a lot of wasted memory space. This slows the system down and will be 
apparent once more data is entered. 
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V. CONCLUSION AND RECOMMENDATION 



A. CONCLUSION 

The database schema and application developed for this thesis are basic, yet 
functional. They provide a simple approach for extracting and updating FBE data using 
an easy to use graphical interface. 

The requirements analysis portion of this project was very frustrating. Users were 
not certain of what capabilities they wanted and had little understanding of the 
functionality a system such as this could provide. They provided very little input as to 
desired queries, reports, and interface design preferences. As a result the author had to 
spend a considerable amount of time understanding the application domain in order to 
suggest useful query and report options. 

The conceptual model should have been more clearly defined and the project’s 
implementation postponed, but time constraints required that the schema be implemented 
and tested quickly to allow time for the application’s development. This led to 
modifications being applied to the schema mid-way through the implementation of the 
application. 

The Visual Basic and Access coupling is a very effective method of implementing 
client/server systems such as this because it allows the programmer more control over the 
design of the interface and its interactions with the database. It also provides for 
program/data independence thus supporting upward scalability of the database. 

However, limitations of relational databases join processing can slow the speed of 
searches and other data management processes. Numerous table joins are necessary to 
navigate the database and, with large amounts of data in the tables, querying speed is 
likely to suffer. We do not however anticipate the volume of data from a single 
experiment to overwhelm the system since a database contains information from only one 
experiment. 

Another potential limitation is that SQL custom queries require the user to 
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understand the data model well and can become complicated and slow when information 
from two or more tables is required. 

Perhaps the greatest shortcoming of the Visual Basic and Access linkage is the 
quantity of error-trapping and data format-validation code that must be created. Data 
editing and updating method errors addressed by Access 97 can cause an error that may 
terminate the connection between the application data object and the database. 

The database schema was initially implemented in Access 2000, but Visual Basic 
6.0 does not seem to interface with Access 2000. This required that the database schema 
be reconstructed in Access 97. 

B. RECOMMENDATION 

It is my recommendation that the data model be examined with greater detail. In 
my opinion, the conceptual model should be researched independently of any 
implementation plans with the intention of defining data types and sources more clearly. 
Research should involve input from all data repository systems involved in FBEs, such as 
LAWS and GISRS, to determine the data overlap of the systems and the distinguishing 
data interests of each. 

The application provides limited sorting and filtering capabilities for the tables 
defined in the database. The data filtering option needs to be more robust and tested with 
sufficient feedback from the user. For example, the target record viewing filters are basic 
and a better format for time data would provide more effective querying capabilities and 
make the system more stable. 

The data “drill-down” functionality is also very basic. Better requirements 
definition needs to be the main focus of any follow-on work. With a clearer idea of what 
kind of data is wanted, the system functionality can be more focused and provide better 
results. 

The development effort for this system was implemented using an event-based 
methodology. Focus was placed on the information and its flow with less attention paid 
to the behavior of the system. With future alterations to war-fighting doctrine and FBE 
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architectures, the schema developed here may or may not accurately define the 
interactions among the entities involved. This schema should be meticulously tested in a 
FBE environment in order to reveal its limitations. 

The fourth phase of the larger effort will use an object-oriented approach. It will 
look at these relationships as interactions among objects. These objects would contain 
attributes (information, data) about themselves and behaviors that would define their 
interactions and information flow and manipulation. By focusing on both information 
and behavior it is possible to develop systems that are resilient and flexible to changes in 
structure and processes. 

I would also recommend that the system be migrated to the World Wide Web. 
This would increase the amount of input from interested parties and help define 
additional requirements. Schema limitations could also be scrutinized and additional 
entities and relationships added to supplement the data model. 



47 



THIS PAGE INTENTIONALLY LEFT BLANK 



48 



APPENDIX A: GLOSSARY OF TERMS 



This appendix contains the definitions of abbreviations used in this thesis 



AO 


Area of Operations 


ANZ 


USS ANZIO 


ASM 


Anti-Ship Missile 


ASMD 


Anti-Ship Missile Defense 


ASW 


Anti-Submarine Warfare 


ATO 


Air Tasking Order 


BDA 


Bomb Damage Assessment 
Battle Damage Assessment 


BWC 


Battle Watch Captain 


C2 


Command and Control 


C2W 


Command and Control Warfare 


C4I 


Command, Control, Communications, Computers, and Intelligence 


C4ISR 


Command, Control, Communications, Computers, Intelligence, 
Surveillance and Reconnaissance 


CG 


Guided Cruiser 
Commanders Guidance 


CIC 


Combat Information Center 


CINC 


Commander-in-Chief 


CJTF 


Commander Joint Task Force 


COA 


Course of Action 


COMSEC 


Communications Security 


CONOPS 


Concept of Operations 


COP 


Common Operational Picture 


COTS 


Commercial Off-the-Shelf 


CSG 


USS CAPE ST GEORGE 


CTF 


Combined Task Force 
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CVBG 


Aircraft Carrier Battle Group 


cvw 


Carrier Air Wing 


DFN 


Digital Fires Network 


DTG 


Date Time Group 


ERGM 


Extended Range Guided Munition 


GBS 


Global Broadcasting System 


GCCS 


Global Command and Control System 


GIS 


Global Information System 


GPS 


Global Positioning System 


GSIRS-C 


Global ISR System-Capability 


HARM 


High Speed Anti-Radiation Missile 


HIT 


High Interest Track 


HOS 


Hostile 


IKE 


USS EISENHOWER 


IMMM 


In-flight Mission Modification Message 


INTEL 


Intelligence 


ITO 


Integrated Task Order 


IW 


Information Warfare 


JAC 


Joint Analysis Center 


JDAM 


Joint Direct Attack Munition 


JECG 


Joint Experiment Control Group 


JFACC 


Joint Force Air Component Commander 


JFC 


Joint Force Commander 


JFMCC 


Joint Force Maritime Commander 


JICO 


Joint Interface Control Officer 


JIPTL 


Joint Integrated Prioritized Target List 


JMCIS 


Joint Maritime Command Information System 


JOA 


Joint Operations Area 


JSOW 


Joint Stand-Off Weapon 


JSTARS 


Joint Surveillance, Target Attack Radar System 
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JSWS 


JSTARS Work Station 


JTCB 


Joint Targeting Coordination Board 


JTF 


Joint Task Force 


JTW 


Joint Targeting Workstation 


JWAC 


Joint Warfare Analysis Center 


LAMPS 


Light Airborne Multipurpose System 


LAN 


Local Area Network 


LANTIRN 


Low Altitude Navigation and Targeting Infrared for Night 


LAS 


USS LASALLE 


LASM 


Land Attack Standard Missile 


LAWS 


Land Attack Warfare System 


LOS 


Line of Sight 


LPMP 


Launch Point Mission Planner 


MBC 


Maritime Battle Center 


MCC 


Maritime Control Center 


MDS 


Mission Distribution System 


METOC 


Meteorological and Oceanographic 


MOE 


Measure of Effectiveness 


MPA 


Maritime Patrol Aircraft 


MPR 


Mission Planning Request 


NCA 


National Command Authority 


NLT 


Not Later Than 


NPS 


Naval Post Graduate School 


NRO 


National Reconnaissance Office 


NSFS 


Naval Surface Fires Support 


NSW 


Navy Special Warfare 


NUWC 


Naval Undersea Warfare Command 


NWC 


Naval War College 


OCE 


Officer Conducting Exercise 


OIC 


Officer-in-Charge 
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OCR 


Order of Battle 


C T 'ON 


Operational Control 


O 

fc*r 

O 

73 


Opposing Forces 


OPINTEL 


Operational Intelligence 


OPORD 


Operations Order 


OPSEC 


Operational Security 


OTCIXS 


Officer-in-Tactical Command Information Exchange System 


PAO 


Public Affairs Office 


PGM 


Precision Guided Munition 


PLI 


Position Location Information 


POC 


Point of Contact 


RFI 


Request for Information 


ROE 


Rules of Engagement 


SA 


Situational Awareness 


SAM 


Surface-to-Air Missile 


SAR 


Search and Rescue 
Synthetic Aperture RADAR 


SATCOM 


Satellite Communications 


SC 


Strike Controller 


SITREP 


Situation Report 


SLAM 


Stand-off Land Attack Missile 


SLAM-ER 


Stand-off Land Attack Missile Expanded Response 


SOF 


Special Operations Forces 


SOP 


Standard Operating Procedure 


SPAWARSYSCEN 


Space and Naval Warfare Systems Command 


SPECWARGRU 


Special Warfare Group 


SSM 


Surface-to-Surface Missile 


SSN 


Strike Submarine 


STOW 


Synthetic Theater of War 


TA 


Target Acquisition 
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TACAIR 


Tactical Aircraft 


TARPS 


Tactical Air Reconnaissance Pod System 


TBD 


To Be Determined 


TCC 


Time Critical Contact 


TCT 


Time Critical Target 


TEL 


Transporter Erector Launcher 


TLAM 


Tomahawk Land Attack Missile 


TLE 


Target Location Error 


TOT 


Time on Target 


TTF 


Time to Fire 


TTP 


Tactics, Techniques, and Procedures 


TST 


Time Sensitive Target 


TTLAM 


Tactical Tomahawk 


TTWCS 


Tactical Tomahawk Weapons Control System 


UAE 


Unidentified Assumed Enemy 


UAV 


Unmanned Aerial Vehicle 


USN 


United States Navy 
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APPENDIX B: APPLICATION CODE MODULES 



This appendix contains the Visual Basic code modules that define the data 
management system’s interface and functionality. 






'Module : 
'Description: 



1 Programmer : 



Modulel .bas 

Displays an Open File dialog box upon execution 
and loads the main form after setting the 
database file name as a global variable. 

Kevin Colon 






Option Explicit 



Public db 

Public gstNewDatabase 
Public gstFBE 
Public bContinue 
Public bWord 
Public bText 



As Database 
As String 
As String 
As Boolean 
As 3oolean 
As Boolean 



Sub Main ( ) 

On Error GoTo HandleError 
gstNewDatabase = GetNewDat abase 



Set db = OpenDatabase (gstNewDatabase) 

’display Main form 
With frmMain 
. Show 

.Caption = . dlgDatabase . FileTitle & n Database" 
End With 



Sub_Exit : 

Exit Sub 



HandleError: 

Select Case Err. Number 

Case 3004 , 3024, 3044 

gstNewDatabase = GetNewDatabase 
If gstNewDatabase = " ” Then 

MsgBox “No database was selected.", vbExclamation, 

"Database Error” 



’disables options only available when a database is 

selected 

frmMain.mnuFileQueries. Enabled = False 
frmMain.mnuFileSQL. Enabled = False 
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frmMain.mnuUpdate. Enabled = False 
Resume Next 



Else 

Set db = OpenDatabase (gstNewDat abase) 'new database 

location 

'reenables options once a database is selected 
frmMain.mnuFileQueries .Enabled = True 
frmMain.mnuFileSQL. Enabled = True 
frmMain.mnuUpdate. Enabled = True 

Resume ' open the database 

End If 
Case Else 

MsgBox Err .Description, vbOKOnly + vb Exclamation, 
"Unexpected Error" 

End 'exit the project 

End Select 

End Sub 

Public Function Ge tNewDat abase ( ) As String 
' allows user to browse for database 
Dim iResp As Integer 

Dim stMsg As String 

stMsg = "Do you want to locate a database file?" 

iResp = MsgBox (stMsg, vbYesNo + vbQuestion, "File or Path not 
found" ) 

'if user does not want to browse for file 
If iResp = vbNo Then 

'set database name to "blank" 

GetNewDatabase = " " 



Else 

'if user opts to find database 
With f rmMain . dlgDatabase 

.FileName = App.Path & "\G.mdb" ' gstNewDatabase 
.Filter = "Database files (* .mdb) | * .mdb | All files 

^ ^ | * * ** 



'if error encountered, skip next command 
On Error Resume Next 
. ShowOpen 

If Err. Number = cdlCancel Then 
GetNewDatabase = " " 

Else 



'set return filename to selected file 
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GetNewDatabase = . FileName 
End If 
End With 
End If 

End Function 






• **★★★*★**★*★★***★★★*★★★***★★★★**★★★★★★★**★***★★*★*******★★★★★ 



Option Explicit 

1 Reg Key Security Options... 

Const READ_C ONT ROL = &H20000 
Const KEY_QUERY_VALUE = &H1 
Const KEY_SET_VALUE = &H2 
Const KEY_CREATE_SUB_KEY = &H4 
Const KEY_ENUMERATE_SUB_KEYS = &H8 
Const KEY_NOTIFY = &H10 
Const KEY_C REATE_L INK = &H20 

Const KEY_ALL_ACC ESS = KEY_QUERY_VALUE + KEY_SET_VALUE + 

KEY_C REATE_SU3_KEY + KE Y_ENUMERATE_SUB_KE Y S + KEY_NOTIFY + 

KE Y_C REATE_L I NK + READ_C ONTROL 

' Reg Key ROOT Types . . . 

Const H KE Y_L OC AL_MAC H I N E = &H80000002 
Const ERROR_SUCCESS =0 

Const REG_SZ = 1 ' Unicode nul terminated 



Const gREGKEYSYS INFOLOC = "SOFTWAREXMicrosof t \ Shared Tools Location" 
Const gREGVALSYS INFOLOC = "MSINFO" 

Const gREGKEYSYS INFO = " SOFTWARE \Microsoft\ Shared ToolsXMSINFO" 

Const gREGVALSYS INFO = "PATH" 

Private Declare Function RegOpenKeyEx Lib n advapi32" Alias 
"RegOpenKeyExA" (ByVal hKey As Long, ByVal IpSubKey As String, ByVal 
ulOptions As Long, ByVal samDesired As Long, ByRef phkResult.As Long) 

As Long 

Private Declare Function RegQueryValueEx Lib n advapi32" Alias 
"RegQuezyValueExA" (ByVal hKey As Long, ByVal lpValueName As String, 
ByVal IpReserved As Long, ByRef IpType As Long, ByVal lpData As String, 
ByRef lpcbData As Long) As Long 

Private Declare Function RegCloseKey Lib n advapi32" (ByVal hKey As 
Long) As Long 



Private Sub cmdSysInf o_Click ( ) 
Call StartSysInfo 
End Sub 



'Module: 

1 Programmer : 



f rmAbout . frm 
Kevin Colon 



string 

Const REG_DWORD = 4 



' 3 2 -bit number 
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Private Sub cmdOK_Click ( ) 

Unload Me 
End Sub 

Private Sub Form_Load { ) 

Me. Caption = "About " Sc App. Title 

lblVersion. Caption = "Version " Sc App. Major Sc & App. Minor Sc " . n 

Sc App. Revision 

IblTitle. Caption = App. Title 
End Sub 

Public Sub StartSysInfo { ) 

On Error GoTo SysInfoErr 

Dim rc As Long 

Dim SysInfoPath As String 

' Tr y To Get: system Info Program PathXName From Registry. . . 

If GetKeyValue (HKEY__LOCAL__MACHINE, gREG KEY SYS INFO , gREGVAL SYS INFO , 
SysInfoPath) Then 

' Try To Get System Info Program Path Only From Registry... 

Elself GetKeyValue (HKEY_LOCAL_MACHINE, gREGKEYSYSINFOLOC , 
gREGVALSYSINFOLOC , SysInfoPath) Then 

' Validate Existance Of Known 32 Bit File Version 
If (Dir (SysInfoPath Sc " \MSINF032 . EXE" ) <> " " ) Then 
SysInfoPath = SysInfoPath Sc "\MSINF032.EXE" 

' Error - File Can Not Be Found. . . 

Else 

GoTo SysInfoErr 
End If 

' Error - Registry Entry Can Not Be Found. . . 

Else 

GoTo SysInfoErr 
End If 

Call Shell ( SysInfoPath, vbNormalFocus) 

Exit Sub 
SysInfoErr : 

MsgBox "System Information Is Unavailable At This Time", vbOKOnly 
End Sub 

Public Function GetKeyValue (KeyRoot As Long, KeyName As String, 
SubKeyRef As String, ByRef KeyVal As String) As 3oolean 

Dim i As Long ' Loop 

Counter 

Dim rc As Long ' Return 

Code 

Dim hKey As Long ' Handle To 

An Open Registry Key 

Dim hDepth As Long ' 

Dim KeyValType As Long ' Data Type 

Of A Registry Key 

Dim tmpVal As String 



' Tempo ry 



' Size Of 



Storage For A Registry Key Value 
Dim KeyValSize As Long 
Registry Key Variable 



' Open RegKey Under KeyRoot {HKEY_LOCAL_MACHINE . . . } 



rc = Re gOpenKey Ex (KeyRoot , KeyName, 0, KEY_ALL_ACCESS , hKey) ' Open 
Registry Key 

If (rc <> ERROR_SUCCESS) Then GoTo GetKeyError ' Handle 

Error . . . 

tmpVal = String$ (1024 , 0) ' Allocate 

Variable Space 

KeyValSize = 1024 ' Mark 

Variable Size 



' Retrieve Registry Key Value... 



rc = RegQueryValueEx (hKey, SubKeyRef, 0, _ 

KeyValType, tmpVal, KeyValSize) 

Get/Create Key Value 

If (rc <> ERROR_SUCCESS) Then GoTo GetKeyError 
Errors 

If (Asc (Mid (tmpVal, KeyValSize, 1)) =0) Then 
Adds Null Terminated String. . . 

tmpVal = Left (tmpVal, KeyValSize - 1) 

Found, Extract From String 
Else 

Does NOT Null Terminate String... 

tmpVal = Left (tmpVal, KeyValSize) 

Found, Extract String Only 
End If 



' Handle 

' Win95 
' Null 
' WinNT 
' Null Not 



' Determine Key Value Type For Conversion... 



Select Case KeyValType 
Data Types . . . 

Case REG_SZ 

Registry Key Data Type 
KeyVal = tmpVal 
String Value 

Case REG_DWORD 
Word Registry Key Data Type 

For i = Len( tmpVal) To 1 Step -1 

Each Bit 

KeyVal = KeyVal + Hex (Asc (Mid ( tmpVal , i, 1))) 
Value Char. By Char. 

Next 

KeyVal = Format$ ( "&h" + KeyVal) 

Double Word To String 
End Select 



' Search 
' String 
' Copy 
' Double 
' Convert 
' Build 

' Convert 
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' Return 



GetKeyValue = True 
Success 

rc = RegCloseKey (hKey) ' Close 

Registry Key 

Exit Function 7 Exit 

GetKeyError: ' Cleanup After An Error Has Occured. . . 

KeyVal = " " 7 Set 

Return Val To Empty String 

GetKeyValue = False 7 Return 

Failure 

rc = RegCloseKey (hKey) 7 Close 

Registry Key 
End Function 

Private Sub Form_Unload (Cancel As Integer) 

Unload Me 
End Sub 






Module: 

Description: 



Programmer : 



f rmAcqEvents . f rm 

Allows user to access acquisition • event 
records for addition, deletion, and 
modification . 

Kevin Colon 






Option Explicit 

Private WordApp As Word. Application 

Private Doc As Word. Document 

Private Sel As Word . Selection 

Private Sub cboPlatf orms_Click ( ) 

If cboPlatf orms .Lis tlndex >= 0 Then 
txtPlatf ormld = cboPlatf orms . Text 

End If 



End Sub 

Private Sub cboSensTypes_Click ( ) 

If cboSensTypes .Lis tlndex >= 0 Then 

txtSensorTypeld = cboSensTypes . Text 

End If 

End Sub 
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Private Sub cboThreatTypes_Click ( ) 



If cboThreatTypes . Listlndex >= 0 Then 

txtThreatTypeld = cboThreatTypes .Text 

End If 

End Sub 

Private Sub cmdAdd_Click ( ) 

On Error GoTo HandleAddErrors 

If cmdAdd. Caption = "&Add Event” Then 

datAcqEvents . Recordset . AddNew 
cboPlatf onus .Enabled = True 
cboPlatf orxns .Listlndex = -1 
cboThreatTypes . Enabled = True 
cboThreatTypes .Listlndex = -1 
cboSensTypes .Enabled = True 
cboSensTypes . Listlndex = -1 
txtTrackld = True 
txtAssess .Enabled = True 
txt Altitude. Enabled = True 
txtLocat ion. Enabled = True 
txt Priority. Enabled = True 
txtSpeed. Enabled = True 
txtTime . Enabled = True 
cmdUpdate . Enabled = False 
cmdSave . Enabled = True 
cmdDel . Enabled = False 
cmdAdd. Caption = "SeCancel" 
mnuFile . Enabled = False 
datAcqEvents . Enabled = False 



Else 

datAcqEvents . Recordset . CancelUpdate 
datAcqEvents . Enabled = True 
cboPlatf orms . Enabled = False 
cboThreatTypes . Enabled = False 
cboSensTypes .Enabled = False 
txtTrackld = False 
txtAssess . Enabled = False 
txt Altitude. Enabled = False 
txtLocat ion. Enabled = False 
txt Priority. Enabled = False 
txtSpeed. Enabled = False 
txtTime. Enabled = False 
cmdUpda t e . Enab led = True 
cmdSave . Enabled = False 
cmdDel .Enabled = True 
cmdAdd. Caption = "&Add Event" 
mnuFile . Enabled = True 
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cmdAdd . SetFocus 



End If 

cmdAdd_Click_Exit : 

Exit Sub 

HandleAddErrors : 

Dim stMess As String 

stMess = "Cannot complete operation. " Sc vbCrLf Sc vbCrLf 
& Err .Description 

MsgBox stMess, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 



End Sub 

Private Sub cmdDel_Click ( ) 

'delete the current record 
Dim iResp As Integer 

On Error GoTo HandleDelErrors 

If da tAcqEvents . Recordset . RecordCount > 0 Then 

iResp = MsgBox ( "Delete Event " Sc txtAcqEventld Sc " ? " , 

'"Delete Event") 

If iResp = vbYes Then 

With datAcqEvents . Recordset 

.Delete 'delete current record 

.MoveNext 'move to following record 

If .EOF Then 

. Move Previous 
If .BOF Then 

MsgBox "The recordset is empty.", 
vblnf ormation, "No Records" 

End If 
End If 
End With 
End If 

Else 

MsgBox "No records to delete.", vbExclamation _ 

, "Delete Event" 

End If 

cmdDel_Click_Exit : 

Exit Sub 

HandleDelErrors : 

Dim stMsg As String 

stMsg = "Cannot complete operation." Sc vbCrLf Sc vbCrLf _ 
Sc Err .Description 



vbYesNo, 
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MsgBox stMsg, vbExclamation, "Database Error” 

On Error GoTo 0 'turn off error trapping 

End Sub 

Private Sub cmdSave_Click ( ) 

'save the current record 
On Error GoTo HandleSaveErrors 

If cboThr eat Types .List Index >= 0 And cboSensTypes . Listlndex >= 0 

Then 

If Vai ( txtCounter) < 10 Then 

txtAcqEventld.Text = "AE0000” & txtCounter . Text 

Else 

If Val (txtCounter) < 100 Then 

txtAcqEventld.Text = "AE000" & txtCounter . Text 

Else 

If Val (txtCounter) < 1000 Then 

txtAcqEventld.Text = "AEOO" & txtCounter .Text 

Else 

If Val (txtCounter) < 10000 Then 

txtAcqEventld.Text = "AE0" & txtCounter .Text 

Else 

txtAcqEventld.Text = "AE” & txtCounter .Text 
End If 
End If 
End If 

End If 

datAcqEvents . Recordset .Update 

Else 

MsgBox "You must select a threat and sensor before saving." 

, vbExc lama t ion, "Add Acquisition Event" 

datAcqEvents .Recordset .CancelUpdate 
End If 

cboPlat forms .Enabled = False 
cboThreatTypes .Enabled = False 
cboSensTypes . Enabled = False 
txtTrackld = False 
txtAssess . Enabled = False 
txtAltitude . Enabled = False 
txtLocation . Enabled = False 
txtPriority .Enabled = False 
txtSpeed. Enabled = False 
txtTime . Enabled = False 
cmdSave . Enabled = False 
cmdUpdate . Enabled = True 
cmdDel .Enabled = True 
cmdAdd. Caption = " &Add Event" 
mnuFile. Enabled = True 
datAcqEvents. Enabled = True 
cmdAdd . SetFocus 
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datAcqEvents . Enabled = True 

cmdSave_Click_Exit : 

Exit Sub 

HandleSaveErrors : 

Dim stMess As String 
Select Case Err. Number 

Case 3022 'duplicate key field 

stMess = "Record already exists — could not save> ' " 
MsgBox stMess, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 

Case 3058, 3315 'no entry in key field 

stMess = "Select a Sensor type and threat before saving." 
MsgBox stMess, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 

Case Else 

stMess = "Record could not be saved." & vbCrLf _ 

Sc Err . Description 

MsgBox stMess, vbExclamation, "Database Error" 
datAcqEvents . Recordset . CancelUpdate 
Resume Next 
End Select 

End Sub 

Private Sub cmdUpdate_Click ( ) 

If cmdUpdate. Caption = "^Update" And _ 

datAcqEvents . Recordset . RecordCount > 0 Then 

cmdUpdate. Caption = " Su&bmit" 
cboPlatforms . Enabled = True 
cboThreatTypes . Enabled = True 
cboSensTypes . Enabled = True 
txtTrackld = True 
txtAssess . Enabled = True 
txtAltitude . Enabled = True 
txtLocation . Enabled = True 
txtPriority. Enabled = True 
txtSpeed . Enabled = True 
txt Time. Enabled = True 
cmdSave. Enabled = False 
cmdDel . Enabled = False 
cmdAdd. Enabled = False 
mnuFile .Enabled = False 
datAcqEvents . Enabled = False 
datAcqEvents . Recordset . Edit 



Else 

If datAcqEvents. Recordset .RecordCount > 0 Then 
datAcqEvents . Recordset . Update 
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cboPlatf orms . Enabled = False 
cboThreatTypes . Enabled = False 
cboSensTypes . Enabled = False 
txtTrackld = False 
txtAssess . Enabled = False 
txtAltitude . Enabled = False 
txtLocation . Enabled = False 
txt Priority. Enabled = False 
txt Speed. Enabled = False 
txtTime. Enabled = False 
cmdDel .Enabled - True 
cmdAdd. Enabled = True 
cmdAda. Set Focus 
cmdUpdate . Caption = " ScUpdat e " 
mnuFile. Enabled = True 
datAcqEvents . Enabled = True 

End If 
End If 

End Sub 

Private Sub datAcqEvents_Reposition ( ) 

S e t AcqE ven t s Rec or dNuxnbe r 

End Sub 



Private Sub FillPlatf ormCombo ( ) 

Dim iCount As Integer 
'fill the PlatType combo box 
cboPlatf orms .Clear 

With datPlatforms 

.Refresh 'open database 

iCount = . Recordset . RecordCount 

'fill the list 
Do Until .Recordset . EOF 

If .Recordset ! Platform <> " " Then 

cboPlatf orms . AddI tern . Recordset ! Platform 

End If 

. Recordset . MoveNext 

Loop 
End With 

End Sub 

Private Sub FillSensTypeCombo ( ) 

Dim iCount As Integer 
'fill the PlatType combo box 
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cboSensTypes . Clear 

With datSensTypes 

.Refresh 'open database 

Do Until .Recordset . EOF 'fill the list 

If . Recordset ! SensorType <> "" Then 

cboSensTypes .Addltem .Recordset ! SensorType 

End If 

. Recordset . MoveNext 



Loop 
End With 

End Sub 

Private Sub FillThreatTypeCombo ( ) 

Dim iCount As Integer 
'fill the PlatType combo box 
cboThreatTypes . Clear 

With datThreatTypes 

.Refresh 'open database 

Do Until .Recordset .EOF 'fill the list 

If . Recordset IThreatType <> " ” Then 

cboThreatTypes . Addltem . Recordset ! ThreatType 

End If 

. Recordset . MoveNext 

Loop 
End With 

End Sub 



Private Sub Form_Load() 

datPlat forms . DatabaseName = gstNewDat abase 
datSensTypes . DatabaseName = gstNewDatabase 
datThreatTypes .DatabaseName = gstNewDatabase 
datAcqEvents . DatabaseName = gstNewDatabase 

Fill Pi at formCombo 
FillSensTypeCombo 
FillThreatTypeCombo 

With datAcqEvents 
.Refresh 

If Not .Recordset .EOF Then 
. Recordset .MoveLast 
. Recordset .MoveFirst 
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End If 
End With 

SetAcqEventsRecordNumber 



End Sub 



Private Sub SetAcqEventsRecordNumber ( ) 

Dim iRecordCount As Integer 
Dim iCurrentRecord As Integer 

iRecordCount = datAcqEvent s . Recordset . RecordCount 
iCurrentRecord = datAcqEvents . Recordset . AbsolutePosit ion + 1 



If datAcqEvents. Recordset .EOF Then 

datAcqEvents. Caption = "No more records" 

Else 



datAcqEvents . Caption 
iCurrentRecord & _ 

n 



= "Acquisition Event Record 
of " & iRecordCount 



End If 



5c 



End Sub 



Private Sub mnuFileBack_Click ( ) 

f rmMain. Show 

frmMa in. Enabled = True 

Unload Me 



End Sub 

Private Sub mnuPrint_Click ( ) 
frmPrint . Show 

On Error GoTo mnuPrintErrors 

If bContinue = True Then 

With datAcqEvents. Recordset 

If bWord = True Then 

Set WordApp = New Word .Application 
WordApp . Document s . Add 
Set Doc = WordApp. Ac tiveDocument 
Set Sel = WordApp. Selection 

Doc .Tables .Add Range : =Sel .Range, NumRows : = .RecordCount, 

NumColumns : =11 
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Sel.TypeText Text := "Acquisition 
Sel .MoveRight unit: =12 



'12=next cell 



Sel.TypeText Text : = "Trackld" 



Sel . MoveRight unit : =12 


' 12=next 


cell 


Sel . TypeText Text : = " AcqTime" 
Sel . MoveRight unit : =12 


' 12=next 


cell 


Sel . TypeText Text : = " ThreatType " 
Sel .MoveRight unit : =12 


' 12=next 


cell 


Sel . TypeText Text : = "AcqPlatf orm" 
Sel .MoveRight unit : =12 


' 12=next 


cell 


Sel . TypeText Text : = " AcqSensorType " 
Sel .MoveRight unit : =12 


' 12=next 


cell 


Sel .TypeText Text : = "TrackLocat ion" 
Sel .MoveRight unit : =12 


' 12=next 


cell 


Sel .TypeText Text : = "TrackAltitude" 
Sel .MoveRight unit : =12 


' 12=next 


cell 


Sel .TypeText Text : = "TrackSpeed" 
Sel .MoveRight unit : =12 


' 12=next 


cell 


Sel . TypeText Text : = "TrackPriority" 
Sel .MoveRight unit : =12 


' 12=next 


cell 


Sel .TypeText Text : = "Remark" 
Sel .MoveRight unit: =12 


' 12=next 


cell 



Do Until .EOF 

Sel.TypeText Text : = ! Acquisition 

Sel .MoveRight unit: =12 '12=next 

cell 

Sel.TypeText Text : = ! Trackld 

Sel .MoveRight unit: =12 '12=next 

cell 

Sel .TypeText Text : = lAcqTime 

Sel .MoveRight unit: =12 '12=next 

cell 



Sel . TypeText Text : = ! ThreatType 

Sel .MoveRight unit: =12 '12=next 

cell 



Sel.TypeText Text : = ! AcqPlatf orm 

Sel . MoveRight unit: =12 '12=next 

cell 
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cell 



Sel.TypeText Text : = ! AcqSensorType 
Sel -MoveRight unit: =12 



' 12=next 



cell 


Sel . TypeText Text : = ! TrackLocation 

Sel .MoveRight unit: =12 '12=next 


cell 


Sel.TypeText Text : = ! TrackAltitude 

Sel .MoveRight unit: =12 '12=next 


cell 


Sel.TypeText Text : = I TrackSpeed 

Sel .MoveRight unit: =12 '12=next 


cell 


Sel.TypeText Text : = ITrackPriority 

Sel .MoveRight unit: =12 '12=next 


cell 


Sel . TypeText Text : = ! Remark 

Sel .MoveRight unit: =12 '12=next 

.MoveNext 

Loop 

WordApp .Visible = True 
Set WordApp = Nothing 


"AcqTime" ; 


Else 

If bText = True Then 

Open App.Path & "\AcqEvents.txt" For Output As #1 
Print #1, "Acquisition"; Chr(9) ; "Trackld" ; Chr(9) 

r Chr ( 9 ) ; _ 

" ThreatType " ; Chr (9) ; " AcqPl^tf orm" ; 


Chr (9) ; _ 





"AcqSensorType" ; Chr (9) 

"TrackLocation" ; Chr (9); _ 



Chr (9) ; _ 


"TrackAltitude" ; Chr (9) ; "TrackSpeed" ; 
"TrackPriority" ; Chr (9) ; "Remark"; 


Chr (9) 


Do Until .EOF 

Print #1, ! Acquisition; Chr(9); _ 

! Trackld; Chr (9) ; _ 



AcqTime ; Chr { 9 ) ; _ 
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! ThreatType ; Chr { 9 ) ; _ 

! AcqPlatform; Chr(9); _ 

! AcqSensorType; Chr (9) ; _ 
ITrackLocation; Chr(9); _ 
ITrackAltitude; Chr(9); _ 
ITrackSpeed; Chr (9); _ 
ITrackPriority; Chr(9); _ 
! Remark ; Chr ( 9 ) 



.MoveNext 

Loop 

Close #1 

End If 
End If 

.MoveFirst 

End With 

End If 

bContinue = False 
bWord = False 
bText = False 



mnuPrintErrors : 

Select Case Err .Number 
Case 94 

Sel.TypeText Text:=" " 
Resume Next 
End Select 



End Sub 

Private Sub txtPlatf ormId_Change ( ) 

'selects correct combo box listing 
Dim ilndex As Integer 
Dim bFound As Boolean 

datPlat forms . Recordset .MoVeFirst 
If txtPlatformld <> " " Then 

Do Until ilndex = datPlat forms . Recordset . RecordCount Or bFound 
If datPlatf orms . Recordset ! Platform = txtPlatformld Then 
cboPlat forms .Text = datPlat forms .Recordset ! Platform 
bFound = True 

Else 

datPlatf orms .Recordset .MoveNext 
ilndex = ilndex + 1 

End If 

Loop 
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Else 

cboPlatf orms . Listlndex = -1 
End If 

End Sub 

Private Sub txt SensorType I d_C hang e ( ) 

'selects correct combo box listing 
Dim ilndex As Integer 
Dim bFound As Boolean 
Dim nun As Integer 

With datSensTypes 

. Recordset . MoveFirst 
If txtSensorTypeld <> "" Then 

Do Until ilndex = cboSensTypes . ListCount Or bFound 
If .Recordset ! SensorType = txtSensorTypeld Then 
cboSensTypes . Text = . Recordset ! SensorType 
bFound = True 

Else 

. Recordset . MoveNext 
ilndex = ilndex + 1 

End If 

Loop 

Else 

cboSensTypes. Listlndex = -1 

End If 
End With 



End Sub 

Private Sub tx t Threat Type Id_C hang e ( ) 

'selects correct combo box listing 
Dim ilndex As Integer 
Dim bFound As Boolean 

da t Threat Types . Recordset . MoveFirst 
If txtThreatTypeld <> n " Then 

Do Until ilndex = cboThreatTypes . ListCount Or bFound 

If da tThreatTypes. Recordset !ThreatType = txtThreatTypeld 

Then 

cboThreatTypes . Text = 
datThreatTypes . Recordset ! ThreatType 
bFound = True 

Else 

datThreatTypes . Recordset . MoveNext 
ilndex = ilndex + 1 
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End If 



Loop 

Else 

cboThreatTypes . Listlndex = -1 
End If 
End Sub 



' Module : f rmAcronyms . f rm 

'Description: Allows user to access acronyms 

' records for addition, deletion, and 

' modification. 

'Programmer: Kevin Colon 



Option Explicit 

Private Sub cmdAddAcronym_Click ( ) 

On Error GoTo HandleAddAcronymErrors 

If cmdAddAcronym. Caption = "&Add Acronym" Then 
da t Acronyms . Recordset . AddNew 
txtAcronym. Enabled = True 
txtAcronym. SetFocus 
txtDescript ion. Enabled = True 
cmdAddAcronym. Caption = "&Cancel" 
cmdSaveAcronym. Enabled = True 
cmdDel Acronym. Enabled = False 
cmdUpdate. Enabled = False 
mnuFile .Enabled = False 
da tAcronyms .Enabled = False 



Else 

datAcronyms . Recordset . CancelUpdate 
txtAcronym. Enabled = False 
txtDescript ion. Enabled = False 
cmdSaveAcronym. Enabled = False 
cmdDelAcronym. Enabled = True 
cmdUpdate . Enabled = True 
mnuFile .Enabled = True 

cmdAddAcronym.Caption = ”&Add Acronym" 
cmdAddAcronym. SetFocus 
datAcronyms . Enabled = True 

End If 

cmdAddAcronym_Click_Exit : 

Exit Sub 

HandleAddAcronymErrors : 

Dim stMess As String 

stMess = "Cannot complete operation. u 
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Sc vbCrLf & vbCrLf 



& Err . Description 

MsgBox stMess, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 



End Sub 

Private Sub cmdDelAcronym_Click ( ) 

'delete the current record 
Dim iResp As Integer 

On Error GoTo HandleDelAcronymErrors 

If datAcronyms . Recordset . RecordCount > 0 Then 

iResp = MsgBox ( "Delete Acronym " & txt Acronym. Text & "?" 
vbYesNo, "Delete Acronym") 

If iResp = vbYes Then 

With datAcronyms . Recordset 

.Delete 'delete current record 

.MoveNext 'move to following record 

If .EOF Then 

. MovePrevious 
If .BOF Then 

MsgBox "The recordset is empty.", 
vblnf ormation, "No Records" 

End If 
End If 
End With 
End If 

Else 

MsgBox "No records to delete.", vbExclamation _ 

, "Delete Acronym" 

End If 

cmdDelAcronym__Click_Exit : 

Exit Sub 

HandleDelAcronymErrors : 

Dim stMsg As String 

stMsg = "Cannot complete operation." & vbCrLf & vbCrLf _ 

8c Err .Description 

MsgBox stMsg, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 

End Sub 

Private Sub cmdSaveAcronym__Click ( ) 

' save the current record 
Dim iResp As Integer 

On Error GoTo HandleSaveAcronymErrors 
If txtAcronym <> " " And txtDescription <> 
txtAcronym = UCase ( txtAcronym) 
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n ii 



Then 



iResp = MsgBox("Do you want to add " & txtAcronym & _ 

" to the database?", vbYesNo + vbQuestion, 
"Add Acronym") 

If iResp = vbYes Then 

datAcronyms . Recordset . Update 
End If 



Else 

MsgBox "You must enter an acronym and a description before 
saving." , vbExclamation _ 

, "Add Acronym" 

datAcronyms . Recordset . CancelUpdate 
End If 

txtAcronym. Enabled = False 
txtDescription. Enabled = False 
cmdSaveAcronym. Enabled = False 
cmdDelAcronym. Enabled = True 
datAcronyms .Enabled = True 
mnuFile . Enabled = True 

cmdAddAcronym. Caption = "ScAdd Acronym" 
cmdAddAcronym. SetFocus 
cmaUpdate . Enabled = True 



cmdSaveAcronym_Click_Exit : 

Exit Sub 

HandleSaveAcronymErrors : 

Dim stMess As String 
Select Case Err. Number 

Case 3022 'duplicate key field 

stMess = "Record already exists — could not save>'" 
MsgBox stMess, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 

Case 3058, 3315 'no entry in key field 

stMess = "Enter a Acronym name before saving." 

MsgBox stMess, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 

Case Else 

stMess = "Record could not be saved." & vbCrLf _ 

Sc Err .Description 

MsgBox stMess, vbExclamation, "Database Error" 
datAcronyms . Recordset . CancelUpdate 
Resume Next 
End Select 

End Sub 

Private Sub cmdUpdate_Click ( ) 

If cmdUpdate .Caption = "^Update" And _ 

datAcronyms . Recordset . RecordCount > 0 Then 
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cmdUpdate . Caption = "Su&bmit" 
txtAcronym. Enabled = True 
txtDescription. Enabled = True 
cmdDel Acronym. Enabled = False 
mnuFile. Enabled = False 
txtAcronym. SetFocus 
cmdAddAcronym. Enabled = False 
da t Acronyms . Enabled = False 
datAcronyms . Recordset . Edit 

Else 

If datAcronyms .Recordset . RecordCount > 0 Then 
datAcronyms . Recordset .Update 

txtAcronym. Enabled = False 
txtDescription. Enabled = False 
cmdDel Acronym. Enabled = True 
mnuFile. Enabled = True 
cmdAddAcronym. Enabled = True 
cmdAddAcronym. SetFocus 
cmdUpda t e . Cap t i on = " &Upaa te" 
datAcronyms . Enabled = True 
End If 
End If 

End Sub 

Private Sub datAcronyms_Reposition ( ) 

Set Ac ronymRecordNumber 

End Sub 

Private Sub Form__ Load ( ) 

datAcronyms .Da tabaseName = gstNewDatabase 

With datAcronyms 
. Refresh 

If Not .Recordset . EOF Then 
. Recordset . MoveLas t 
. Recordset .MoveFir st 
End If 
End With 

SetAcronymRecordNumber 



End Sub 

Private Sub FormJJnload (Cancel As Integer) 
frxnMain.Show 
frmMa in. Enabled = True 
Unload Me 

End Sub 

Private Sub mnuFileBack_Click ( ) 
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frmMain. Enabled = True 
Unload Me 

End Sub 

Private Sub mnuFileSearch_Click ( ) 

da tAcronyms. Recordset .FindFirst "[Acronym] = ' " & _ 

InputBox ( "Enter the Acronym" , "Acronym Search") & " 

If da tAcronyms. Recordset .NoMatch Then 

MsgBox "Acronym was not found.", vbOKOnly, "Acronym Search" 
da tAcronyms. Recordset .MoveFirst 'go to first record 

End If 

End Sub 

Private Sub SetAcronymRecordNumber ( ) 

Dim iRecordCount As Integer 
Dim iCurrentRecord As Integer 

iRecordCount = da tAcronyms . Recordset . RecordCount 
iCurrentRecord = da t Acronyms . Recordset .Absolut ePos it ion + 1 
If da tAcronyms. Recordset .EOF Then 

da tAcronyms .Caption = "No more records" 

Else 

da tAcronyms .Caption = "Acronym " & iCurrentRecord & _ 

"of " & iRecordCount 

End If 
End Sub 



'★★**★**★★***★*******★★*★★★★★★★★***★★★**★*************★***★*★* 
'Module: f rmDataTypes . f rm 

'Description: Allows user to access the data types 

' records for addition, deletion, and 

' modification. 

’Programmer: Kevin Colon 



Option Explicit 

Private Sub cmdAdd_Click ( ) 

On Error GoTo HandleAddErrors 

If cmdAdd. Caption = "&Add" Then 

da tDa taTypes . Recordset . AddNew 
txtDataType. Enabled = True 
txtDataType . SetFocus 
txtDescription. Enabled = True 
cmdAdd. Caption = "^Cancel" 
cmdSave . Enabled = True 
cmdDel . Enabled = False 



76 



cmdUpdate . Enabled = False 
mnuFile . Enabled = False 
datDataTypes . Enabled = False 



Else 

datDataTypes . Recordset . CancelUpdate 

txtDataType . Enabled = False 

txtDescription .Enabled = False 

cmdSave . Enabled = False 

cmdDel . Enabled = True 

cmdUpdate. Enabled = True 

mnuFile . Enabled = True 

cmdAdd. Caption = "ScAdd" 

cmdAdd . SetFocus 

datDataTypes . Enabled = True 

End If 

cmdAdd_C lie k_Ex i t : 

Exit Sub 

HandleAddErrors : 

Dim stMess As String 

stMess = "Cannot complete operation. " & vbCrLf & vbCrLf 
& Err .Description 

MsgBox stMess, vbExclamation , "Database Error" 

On Error GoTo 0 'turn off error trapping 



End Sub 

Private Sub cmdDel_Click ( ) 

'delete the current record 
Dim iResp As Integer 

On Error GoTo HandleDelErrors 

If datDataTypes. Recordset .RecordCount > 0 Then 

iResp = MsgBox ( "Delete DataTvpe " Sc txtDataType . Text & "?" 
vbYesNo, "Delete DataType" ) 

If iResp = vbYes Then 

With datDataTypes . Recordset 

.Delete 'delete current record 

.MoveNext 'move to following record 

If .EOF Then 

. MovePrevious 
If .BOF Then 

MsgBox "The recordset is empty.", 
vblnf ormation, "No Records" 

End If 
End If 
End With 
End If 

Else 

MsgBox "No records to delete.", vbExclamation _ 
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Delete DataType 



End If 

cmdDel_Click_Exit : 

Exit Sub 

HandleDelErrors : 

Dim stMsg As String 

stMsg = "Cannot complete operation." & vbCrLf & vbCrLf _ 

& Err .Description 

MsgBox stMsg, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 

End Sub 

Private Sub cmdSave_Click ( } 

' save the current record 
Dim iResp As Integer 

On Error GoTo HandleSaveErrors 

If txtDataType <> " " And txtDescription <> " " Then 
txtDataType = UCase ( txtDataType) 

iResp = MsgBox ("Do you want to add " & txtDataType & 

" to the database?", vbYesNo + vbQuestion, 
"Add DataType") 

If iResp = vbYes Then 

datDataTypes . Recordset . Update 
End If 



Else 

MsgBox "You must enter an DataType and a description before 
saving.", vbExciairiati on _ 

. "Add DataType" 

datDataTypes . Recordset . CancelUpdate 
End If 

txtDataType . Enabled = False 
txtDescription. Enabled = False 
cmdSave . Enabled = False 
cmdDel . Enabled = True 
datDataTypes .Enabled = True 
mnuFile .Enabled = True 
cmdAdd . Caption = "ScAdd" 
cmdAdd . SetFocus 
cmdUpdate. Enabled = True 



cmdSave_Click_Exit : 

Exit Sub 

HandleSaveErrors : 

Dim stMess As String 
Select Case Err. Number 
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Case 3022 'duplicate key field 

stMess = "Record already exists -- could not save>' 
MsgBox stMess, vbExclamation , "Database Error" 

On Error GoTo 0 'turn off error trapping 

Case 3058, 3315 'no entry in key field 

stMess = "Enter a DataType name before saving." 
MsgBox stMess, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 

Case Else 

stMess = "Record could not be saved." & vbCrLf _ 

8c Err .Description 

MsgBox stMess, vbExclamation, "Database Error" 
datDataTypes . Recordset . CancelUpdate • 

Resume Next 
End Select 

End Sub 

Private Sub cmdUpdate_Click ( ) 

If cmdUpdate .Caption = "^Update" And _ 

datDataTypes .Recordset .RecordCount > 0 Then 

cmdUpdate .Caption = "Su&bmit" 
txtDataType. Enabled = True 
txtDescription. Enabled = True 
cmdDel .Enabled = False 
mnuFile. Enabled = False 
txtDataType . SetFocus 
cmdAdd. Enabled = False 
datDataTypes .Enabled = False 
datDataTypes .Recordset .Edit 

Else 

If datDataTypes .Recordset .RecordCount > 0 Then 
datDataTypes . Recordset . Update 

txtDataType. Enabled = False 
txtDescription. Enabled = False 
cmdDel .Enabled = True 
mnuFile. Enabled = True 
cmdAdd. Enabled = True 
cmdAdd . SetFocus 
cmdUpdate. Caption = "^Update" 
datDataTypes . Enabled = True 
End If 
End If 

End Sub 

Private Sub datDataTypes_Reposition { ) 

SetDataTypeRecordNumber 

End Sub 
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Private Sub Form_Load() 

datDataTypes . DatabaseName = gstNewDatabase 

With datDataTypes 
. Refresh 

If Not .Recordset .EOF Then 
. Recordset . MoveLast 
. Recordset . MoveFirst 
End If 
End With 

Se tDa t aTypeRe c ordNumber 



End Sub 

Private Sub Form__Unload (Cancel As Integer) 
frmMain . Show 
frmMain. Enabled = True 
Unload Me 

End Sub 

Private Sub mnuFileBack_Click ( ) 

frmMain . Enabled = True 
Unload Me 

End Sub 

Private Sub mnuFile Sear ch_C lick ( ) 

datDataTypes. Recordset .FindFirst " [DataType] = ' " & _ 

InputBox ( "Enter the Data Type", "Data Type Search") & 



If datDataTypes . Recordset .NoMatch Then 

MsgBox "Data Type was not found.", vbOKOnly, "Data Type Search" 
datDataTypes .Recordset .MoveFirst 'go to first record 

End If 



End Sub 

Private Sub SetDataTypeRecordNumber ( ) 

Dim iRecordCount As Integer 
Dim iCurrentRecord As Integer 

iRecordCount = datDataTypes . Recordset . RecordCount 
iCurrentRecord = datDataTypes . Recordset . AbsolutePosition + 1 
If datDataTypes .Recordset . EOF Then 

datDataTypes . Caption = "No more records" 

Else 

datDataTypes . Caption = "DataType " & iCurrentRecord & _ 

"of " & iRecordCount 
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End If 



End Sub 

'★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★■A-* 

'Module: frmFBE.frm 

'Description: Allows user to access the FBE information 

' for addition, deletion, and modification. 

'Programmer: Kevin Colon 



Option Explicit 

Private Sub cmdAddFBE_Click ( ) 

On Error GoTo HandleAddFBEErrors 

If cmdAddFBE. Caption = "&Add FBE " Then 
datFBE . Recordset . AddNew 
txtFBE . Enabled = True 
txtFBE . SetFocus 
txtDescription. Enabled - True 
txtStart .Enabled = True 
txtEnd . Enabled = True 
cmdAddFBE. Caption = "^Cancel" 
cmdSaveFBE. Enabled = True 
cmdDelFBE. Enabled = False 
cmdUpdate. Enabled = False 
mnuFile . Enabled = False 
datFBE . Enabled = False 



Else 

datFBE . Recordset . CancelUpdate 
txtFBE . Enabled = False 
txtDescription. Enabled = False 
txtStart .Enabled = False 
txtEnd . Enabled = False 
cmdSaveFBE. Enabled = False 
cmdDelFBE . Enabled = True 
cmdUpdate . Enabled = True 
mnuFile . Enabled = True 
cmdAddFBE. Caption = "&Add FBE" 
cmdAddFBE . SetFocus 
datFBE . Enabled = True 

End If 

cmdAddFBE_Click_Exit : 

Exit Sub 

HandleAddFBEErrors : 

Dim stMess As String 

stMess = "Cannot complete operation. " & vbCrLf & vbCrLf _ 
Sc Err .Description 

MsgBox stMess, vbExclamation, "Database Error" 

On Error GoTo 0 ‘turn off error trapping 
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End Sub 



Private Sub cmdDelFBE_Click ( ) 

'delete the current record 
Dim iResp As Integer 

On Error GoTo HandleDelFBEErrors 

If datFBE. Recordset .RecordCount > 0 Then 

iResp = MsgBox( "Delete FBE " & txtFBE.Text Sc "?" , vbYesNo, 
"Delete FBE M ) 

If iResp = vbYes Then 

With datFBE. Recordset 

.Delete 'delete current record 

. MoveNext 'move to following record 

If .EOF Then 

. Move Previous 
If .BOF Then 

MsgBox "The recordset is empty.", 
vblnf ormation, "No Records" 

End If 
End If 
End With 
End If 

Else 

MsgBox "No records to delete.", vbExclamation _ 

, "Delete FBE" 



End If 

cmdDe 1 F BE_C lie k_Ex i t : 

Exit Sub 

HandleDelFBEErrors : 

Dim stMsg As String 

stMsg = "Cannot complete operation." Sc vbCrLf & vbCrLf _ 

Sc Err .Description 

MsgBox stMsg, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 

End Sub 

Private Sub cmdSaveFBE_Click ( ) 

' save the current record 
Dim iResp As Integer 

On Error GoTo HandleSaveFBEErrors 

If txtFBE <> " " And txtDescription <> "" And txtStart <> "" And 
txtEnd <> " * Then 
txtFBE = UCase (txtFBE) 

iResp = MsgBox ("Do you want to add " & txtFBE & _ 

" to the database?", vbYesNo + vbQuestion, _ 
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"Add FBE" ) 

If iResp = vbYes Then 

datFBE . Recordset .Update 
End If 

Else 

MsgBox "You must enter an FBE, a description, and dates before 
saving.", vbExclamation _ 

, "Add FBE" 

datFBE . Recordset . CancelUpdate 
End If 

txtFBE. Enabled = False 
txtDescription . Enabled = False 
txtStart . Enabled = False 
txt End. Enabled = False 
cmdSaveFBE. Enabled = False 
cmdDelFBE. Enabled = True 
datFBE. Enabled = True 
mnuFile. Enabled = True 
cmdAddFBE. Caption = "&Add FBE" 
cmdAddFBE . SetFocus 
cmdUpdate. Enabled = True 



cmdSaveFBE_C 1 ick_Exi t : 
Exit Sub 



HandleSaveFBEErrors : 

Dim stMess As String 
Select Case Err. Number 

Case 3022 'duplicate key field 

stMess = "Record already exists — could not save>'" 
MsgBox stMess, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 



Case 3058, 3315 'no entry in key field 

stMess = "Enter a FBE name before saving." 
MsgBox stMess, vbExclamation, "Database Error" 
On Error GoTo 0 'turn off error trapping 



Case Else 

stMess = "Record could not be saved." & vbCrLf 
& Err .Description 

MsgBox stMess, vbExclamation, "Database Error" 
datFBE . Recordset . CancelUpdate 
Resume Next 
End Select 



End Sub 

Private Sub cmdUpdate_Click ( ) 

If cmdUpdate. Caption = "ScUpdate" And _ 

datFBE. Recordset . RecordCount > 0 Then 
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cmdUpdate. Caption = "Su&bmit M 
txtFBE. Enabled = True 
txtDescription. Enabled = True 
txtS tart .Enabled = True 
txtEnd. Enabled = True 
cmdDelFBE. Enabled = False 
mnuFile. Enabled = False 
txtFBE . SetFocus 
cmdAddFBE . Enabled = False 
da t FBE . Enabled = False 
datFBE . Recordset . Edit 

Else 

If datFBE. Recordset .RecordCount > 0 Then 
datFBE . Recordset . Update 

txtFBE. Enabled = False 
txtDescription. Enabled = False 
txtStart . Enabled = False 
txtEnd. Enabled = False 
cmdDelFBE . Enabled = True 
mnuFile. Enabled = True 
cmdAddFBE . Enabled = True 
cmdAddFBE . SetFocus 
cmdUpdate. Caption = "^Update" 
datFBE. Enabled = True 
End If 
End If 

End Sub 

Private Sub datFBE_Reposition ( ) 
SetFBERecordNumber 

End Sub 

Private Sub Form_Load() 

datFBE. DatabaseName = gstNewDatabase 

With datFBE 
. Refresh 

If Not .Recordset .EOF Then 
. Recordset . MoveLast 
. Recordset . MoveFirst 
End If 
End With 

SetFBERecordNumber 



End Sub 

Private Sub ForrrMJnload (Cancel As Integer) 
frmMain. Show 
frmMa in. Enabled = True 
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Unload Me 



End Sub 

Private Sub mnuFileBack__Click ( ) 
frmMain . Show 
frmMain . Enabled = True 
Unload Me 

End Sub 

Private Sub SetFBERecordNumber { ) 

Dim iRecordCount As Integer 
Dim iCurrentRecord As Integer 

iRecordCount = datFBE . Recordset . RecordCount 
iCurrentRecord = datFBE . Recordset . AbsolutePosit ion + 1 
If datFBE. Recordset .EOF Then 

datFBE . Caption = "No more records" 

Else 

datFBE . Caption = " FBE " & iCurrentRecord Sc _ 

" of " Sc iRecordCount 

End If 
End Sub 



/★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★•a-*** 

'Module : frmFi Iters . f rm 

'Description: Allows user to select filters applied to 

' target recordset parameters. 

'Programmer: Kevin Colon 



Option Explicit 



Dim 


rsWeapons 


As 


Recordset 


Dim 


stSQL 


As 


String 


Dim 


stSQLl 


As 


String 


Dim 


stDesigTime 


As 


String 


Dim 


stDesigDay 


As 


String 


Dim 


stNLTTime 


As 


String 


Dim 


stNLTDay 


As 


String 


Dim 


stLatDeg 


As 


String 


Dim 


stLatDir 


As 


String 


Dim 


stLongDeg 


As 


String 


Dim 


stLongDir 


As 


String 


Private 


Sub chkDescript ion. 


_Click( ) 



If chkDescript ion. Value = 1 Then 
fraDescript ion. Enabled = True 

Else 

fraDescription. Enabled = False 
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End If 



End Sub 

Private Sub chkLocation_Click ( ) 

If chkLocat ion. Value = 1 Then 
fraLocation. Enabled = True 

Else 

fraLocation. Enabled = False 
End If 

End Sub 

Private Sub chkTime_Click ( ) 

If chkTime .Value = 1 Then 
fraTime . Enabled = True 

Else 

fraTime . Enabled = False 
End If 



End Sub 

Private Sub chkWeapon_Click ( ) 

If chkWeapon .Value = 1 Then 
fraWeap on. Enabled = True 

Else 

fraWeapon. Enabled = False 
End If 

End Sub 

Private Sub cmdApply_Click ( ) 

If chkTime = 1 And chkDescription = 1 And chkWeapon = 1 
And chkLocat ion = 1 Then 



Else 

If chkTime = 1 And chkDescription = 1 And chkWeapon = 1 
And chkLocat ion = 0 Then 



Else 

If chkTime = 1 And chkDescription = 1 And chkWeapon = 0 
And chkLocation = 1 Then 



Else 

If chkTime = 1 And chkDescription = 0 And chkWeapon 
And chkLocation = 1 Then 
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Else 



= 1 



If chkTime = 0 And chkDescription = 1 And chkWeapon 
And chkLocation = 1 Then 



chkWeapon = 0 _ 



Else 

If chkTime = 1 And chkDescription = 1 And 
And chkLocation = 0 Then 



chkWeapon = 1 _ 



Else 

If chkTime = 1 And chkDescription = 0 And 
And chkLocation = 0 Then 



And chkWeapon = 1 _ 



txtDescription.Text & 
cboWeapon . Text & " ' " 



Else 



& 



If chkTime = 0 And chkDescription = 

And chkLocation = 0 Then 

st SQL = "Select * from Target " 
"Where Description = ' " 

"And WeaponType = ' " & 



1 



With f rmTargets2 .datTargets 
. RecordSource = stSQL 
. Refresh 
End With 



0 And chkWeapon = 0 _ 



Else 

If chkTime = 1 And chkDescription = 
And chkLocation = 1 Then 



chkDescription = 1 And chkWeapon 



Else 

If chkTime = 0 And 

0 

And chkLocation = 1 Then 



chkDescription = 0 And chkWeapon = 1 
Then 



Else 

If chkTime = 0 And 

And chkLocation = 1 



Else 



chkDescription = 0 And chkWeapon = 0 _ 
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If chkTime = 1 And 






Then 


And chkLocation = 0 



Else 

If chkTime = 0 And 



chkDescription = 1 And chkWeapon = 0 _ 
= 0 Then 


And chkLocation 


* from Target " & _ 


stSQL = "Select 


Description = ' " & txtDescription . Text & " ' " 


"Where 


frmTargets2 .datTargets 


With 


.RecordSource = stSQL 


.Refresh 
End With 


And chkDescription = 0 And chkWeapon = 1 _ 


Else 

If chkTime = 0 


chkLocation = 0 Then 


And 


"Select * from Target " & _ 

"Where WeaponType = ' " & cboWeapon . Text & " ' " 


stSQL = 


f rmTargets2 . datTargets 
.RecordSource = stSQL 


With 


. Refresh 


End With 


= 0 And chkDescription = 0 And chkWeapon = 0 _ 


Else 

If chkTime 


chkLocation = 1 Then 


And 




Else 

If 



chkTime = 0 And chkDescription = 0 And chkWeapon = 0 _ 

And 

chkLocation = 0 Then 
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stSQL = “Select * from Target 



With f rmTargets2 . datTargets 
. RecordSource = stSQL 
.Refresh 
With 



End 



End If 
End If 
End If 
End If 
End If 
End If 
End If 
End If 
End If 
End If 
End If 
End If 
End If 
End If 
End If 
End If 



If chkTime .Value = 1 Then 

Else 

End If 

If chkDescription. Value = 1 Then 

Else 

End If 

If chkWeapon .Value = 1 Then 

stSQL = "Select * from Target where WeaponType = '" & 
cboWeapon . Text & ” ' ” 

With frmTargets2 .datTargets 
. RecordSource = stSQL 
. Refresh 
End With 



Else 

stSQL = "Select * from Target" 
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With f nnTargets2 . datTargets 
. RecordSource = stSQL 
. Refresh 
End With 



End If 

If chkLocat ion. Value = 1 Then 

Else 

End If 



End Sub 

Private Sub cmdCancel_Click ( ) 

frmTargets2 .Enabled = True 
Me. Hide 

End Sub 

Private Sub cmdOK_Click( ) 

cmdApp ly_C lick 
frmTargets2 . Enabled = True 
f rmTargets2 . Show 
Me. Hide 

End Sub 

Private Sub FillcboWeapons ( ) 

With rsWeapons 

Do Until .EOF 

cboWeapon . AddI t em l WeaponType 
.MoveNext 

Loop 
End With 

cboWeapon. Lis tlndex = -1 



End Sub 

Private Sub Form_Load ( ) 

stSQLl = "Select WeaponType from WeaponType" 
Set rsWeapons = db . OpenRecordset (stSQLl) 
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Fi 1 IcboWeapons 



End Sub 

Private Sub Form_Unload (Cancel As Integer) 

frmTargets2 . Enabled = True 
Me. Hide 

End Sub 



' Module : f rmFireCindEvent . f rm 

'Description: Allows user to access the fire command event 

' records for addition, deletion, and 

' modification. 

'Programmer: Kevin Colon 



Option Explicit 



Dim rsNomination 
Dim rsTarget 
Dim rsPlatform 
Dim stSQLl 
Dim stSQL2 
Dim stSQL3 
Private WordApp 
Private Doc 
Private Sel 



As Recordset 
As Recordset 
As Recordset 
As String 
As String 
As String 

As Word. Application 
As Word. Document 
As Word. Selection 



Private Sub cboNomination_Change ( ) 

If cboNomination.Listlndex >= 0 Then 
txtNomination = cboNomination . Text 
End If 

End Sub 

Private Sub cboPlatf orm_Change ( ) 

If cboPlatf orm.Listlndex >= 0 Then 
txtPlatform = cboPlatf orm. Text 
End If 

End Sub 

Private Sub cboTarget_Change ( ) 

If cboTarget .Listlndex >= 0 Then 
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txtTarget = cboTarget . Text 
End If 

End Sub 

Private Sub cmdAdd_Click ( ) 

On Error GoTo HandleAddErrors 

If cmdAdd. Caption = " ScAdd Event" Then 

datFireCommand. Recordset .AddNew 
cboTarget .Enabled = True 
cboNomination . Enabled = True 
cboPlatform. Enabled = True 
cboTarget . Lis tlndex = -1 
cboNomination . Listlndex = -1 
cboPlatform. Listlndex = -1 
txtTimeSent . Enabled = True 
txtTimeRcvd. Enabled = True 
txtOCCCId. Enabled = True 
chkEngage. Enabled = True 
cmdUpdate. Enabled = False 
cmdSave. Enabled = True 
cmdDel . Enabled = False 
cmdAdd. Caption = " ^Cancel" 
mnuFile . Enabled = False 
datFireCommand. Enabled = False 



Else 



datFireCommand . Recordset . Cance lUpdate 
cboTarget .Enabled = False 
cboNomination. Enabled = False 
cboPlatform. Enabled = False 
txtTimeSent . Enabled = False 
txtTimeRcvd. Enabled = False 
txtOCCCId. Enabled = False 
chkEngage. Enabled = False 
cmdUpdate. Enabled = True 
cmdSave. Enabled = False 
cmdDe 1 . Enabl ed = True 
cmdAdd. Caption = "ScAdd Event" 
mnuFile. Enabled = True 
datFireCommand. Enabled - True 
cmdAdd. SetFocus 

End If 

cmdAdd_C lie k_Ex i t : 

Exit Sub 

HandleAddErrors : 

Dim stMess As String 

stMess = "Cannot complete operation. " 5c vbCrLf Sc vbCrLf Sc 
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Err . Description 

MsgBox stMess, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 

End Sub 

Private Sub cmdDel_Click ( ) 

Dim iResp As Integer 

On Error GoTo HandleDelErrors 

If datFireCommand. Recordset .RecordCount > 0 Then 

iResp = MsgBox ( "Delete Event " & txtFireCommand & "?", 

"Delete Event") 

If iResp = vbYes Then 

With datFireCommand. Recordset 
.Delete 
.MoveNext 
If .EOF Then 

. MovePrevious 
If .30F Then 

MsgBox "The recordset is empty.", 
vblnf ormation, "No Records" 

End If 
End If 
End With 
End If 

Else 

MsgBox "No records to delete.", vbExclamation, "Delete 
End If 

cmdDel_Click: 

Exit Sub 

HandleDelErrors : 

Dim stMess As String 

stMess = "Cannot complete operation." & vbCrLf & vbCrLf & 
Err . Description 

MsgBox stMess, vbExclamation, "Database Error" 

On Error GoTo 0 

End Sub 

Private Sub cmdSave_Click ( ) 

' save current record 

On Error GoTo HandleSaveErrors 

If cbo Target .List Index >= 0 And cboNomination . Listlndex >= 
cboPlat form. Lis tlndex >= 0 Then 

If Val ( txtCounter) < 10 Then 

txtFireCommand. Text = "FC0000" & txtCounter . Text 



vbYesNo , 



Event" 



0 And 
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Else 



If Val ( txtCounter ) < 100 Then 

txtFireCommand.Text = "FC000" & txtCounter .Text 

Else 

If Val (txtCounter) < 1000 Then 

txtFireCommand.Text = "FC00" & txtCounter . Text 

Else 

If Val (txtCounter) < 10000 Then 

txtFireCommand.Text = " FC0" & txtCounter .Text 

Else 

txtFireCommand.Text = "FC" Sc txtCounter . Text 
End If 
End If 
End If 
End If 

datFireCommand . Recordset . Update 

Else 

MsgBox "You must select a Nomination Event, a Target, and a 
Platform before saving." _ 

, vbExclamation, "Add Fire Command Event" 
datFireCommand . Recordset . CancelUpdate 
End If 

cboTarget . Enabled = False 
cboNominat ion. Enabled = False 
cboPlat form. Enabled = False 
txtTimeSent .Enabled = False 
txtTimeRcvd . Enabled = False 
txtOCCCId. Enabled = False 
chkEngage . Enabled = False 
cmdUpdate . Enabled = True 
cmdSave . Enabled = False 
cmdDel . Enabled = True 
cmdAdd. Caption = "&Add Event" 
mnuFile. Enabled = True 
datFireCommand. Enabled = True 
cmdAdd . SetFocus 



datFireCommand. Enabled = True 

cmdSave_Click_Exit : 

Exit Sub 

HandleSaveErrors : 

Dim stMess As String 
Select Case Err. Number 

Case 3022 'duplicate key field 

stMess = "Record already exists — could not save>'" 
MsgBox stMess, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 

Case 3058, 3315 'no entry in key field 

stMess = "Select Nomination Event, Target, and Platform 



before saving." 

MsgBox stMess, vbExclamation, "Database Error" 
On Error GoTo 0 'turn off error trapping 

Case Else 

stMess = "Record could not be saved." & vbCrLf 
Sc Err .Description 

MsgBox stMess, vbExclamation, "Database Error" 
datFireCommand . Recordset . CancelUpdate 
Resume Next 
End Select 

End Sub 

Private Sub cmdUpdate_Click ( ) 

If cmdUpdate. Caption = "^Update" And _ 

datFireCommand. Recordset .RecoraCount > 0 Then 

cmdUpdate . Caption = "Su&bmit" 
cboTarget . Enabled = True 
cboNomination . Enabled = True 
cboPlatform. Enabled = True 
txtTime Sent . Enabled = True 
txtTimeRcvd. Enabled = True 
txtOCCCId. Enabled = True 
chkEngage . Enabled = True 
cmdAdd. Enabled = False 
cmdSave . Enabled = False 
cmdDel . Enabled = False 
mnuFile . Enabled = False 
datFireCommand. Enabled = False 
datFireCommand . Recordset . Edit 



Else 

If datFireCommand. Recordset .RecordCount > 0 Then 
datFireCommand . Recordset . Update 

cboTarget . Enabled = False 
cboNomination. Enabled = False 
cboPlatform. Enabled = False 
txtTimeSent . Enabled = False 
txtTimeRcvd. Enabled = False 
txtOCCCId. Enabled = False 
chkEngage . Enabled = False 
cmdDel . Enabled = True 
cmdAdd. Enabled = True 
cmdAdd. Set Focus 
cmdUpdate .Caption = "&Update" 
mnuFile . Enabled = True 
datFireCommand. Enabled = True 



End If 
End If 
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End Sub 



Private Sub datFireCommand_Reposition ( ) 
SetFireCommandRecordNumber 
End Sub 

Private Sub Form_Load() 

datFireCommand.DatabaseName = gstNewDat abase 

stSQLl = "Select Nomination from Nomination" 
stSQL2 = "Select Targetld from Target" 
stSQL3 = "Select Platform from Platform" 



Set rsNomination = db . OpenRecordset ( stSQLl) 

Set rsTarget = db. OpenRecordset ( stSQL2) 

Set rsPlatform = db. OpenRecordset ( stSQL3 ) 

'fill cboNomination 
Do Until rsNomination. EOF 

cboNomination . AddI tern rsNomination ! Nomination 
rsNomination . MoveNext 

Loop 

'fill cboTarget 
Do Until rsTarget. EOF 

cboTarget .AddI tern rsTarget ! Targetld 
rsTarget . MoveNext 

Loop 

'fill cboPlatform 
Do Until rsPlatform. EOF 

cboPlatform. AddI tern rsPlatform' Platform 
rsPlatform. MoveNext 

Loop 

With da tFi reCommand 
.Refresh 

If Not .Recordset .EOF Then 
.Recordset .MoveLast 
. Recordset . MoveFir st 
End If 
End With 

SetFireCommandRecordNumber 
End Sub 

Private Sub Form_Un load (Cancel As Integer) 
frmMain . Enabled = True 
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Unload Me 



End Sub 

Private Sub mnuFile3ack_Click ( ) 

frmMain. Enabled = True 
Unload Me 



End Sub 

Private Sub SetFireCommandRecordNumber ( ) 

Dim iRecordCount As Integer 
Dim iCurrentRecord As Integer 

iRecordCount = datFireCommand. Recordset . RecordCount 
iCurrentRecord = datFireCommand. Recordset . AbsolutePosit ion + 1 



If datFireCommand. Recordset . EOF Then 

datFireCommand. Caption = "No more records" 

Else 



datFireCommand . Caption 
iCurrentRecord a _ 



"Fire Command Event Record 
of " a iRecordCount 



End If 



a 



End Sub 

Private Sub mnuFilePrint_Click ( ) 
f rmPrint . Show 

On Error GoTo mnuPrintErrors 
If bContinue = True Then 

With datFireCommand. Recordset 
If bWord = True Then 



Set WordApp = New Word. Application 
WordApp . Documents . Add 
Set Doc = WordApp .Act iveDocument 
Set Sel = WordApp. Selection 

Doc .Tables .Add Range : =Sel . Range, NumRows : = . RecordCount, 

NumColumns : =6 



Sel.TypeText Text : ="FireCommand" 

Sel .MoveRight unit: =12 '12=next cell 

Sel .TypeText Text := "Nomination" 

Sel .MoveRight unit: =12 
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12=next cell 



cell 



cell 



cell 



cell 



cell 



cell 



Chr (9) ; 



Sel .TypeText Text : = " Target Id" 

Se 1 . MoveRight uni t : = 1 2 

Sel . TypeText Text : = " FCTimeXmit " 

Sel .MoveRight unit : =12 

Sel. TypeText Text : = " FCTimeRcvd" 

Sel . MoveRight unit: =12 

Sel .TypeText Text : = " FirerPlatf orm" 
Sel .MoveRight unit : =12 

Do Until .EOF 

Sel . TypeText Text : = ! FireCommand 
Sel .MoveRight unit: =12 



'12=next cell 
'12=next cell 
'12=next cell 
' 12=next cell 

' 12=next 



Sel. TypeText Text : = INominat ion 

Sel .MoveRight unit: =12 '12=next , 



Sel. TypeText Text :=! Target Id 

Sel .MoveRight unit: =12 '12=next 



Sel . TypeText Text : = ! FCTimeXmit 

Sel .MoveRight unit: =12 '12=next 



Sel . TypeText Text : = ! FCTimeRcvd 

Sel .MoveRight unit: =12 '12=next 



Sel. TypeText Text : = ! FirerPlatf orm 

Sel .MoveRight unit: =12 '12=next 



. MoveNext 



Loop 

WordApp .Visible = True 
Set WordApp = Nothing 



Else 

If bText = True Then 

Open App.Path & n \FireCmds . txt " For Output As #1 

Print #1, " Fi reCommand " ; Chr (9); "Nomination"; 

"Target Id"; Chr(9); _ 
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Chr (9) ; _ 



" FCTimeXmit " ; Chr ( 9 ) ; " FCTimeRcvd" 

" FirerPlatf orm" ; Chr ( 9 ) 

Do Until .EOF 



Print #1, ! FireCommand; Chr (9); 

! Nomination; Chr (9) ; 

! Target Id; Chr (9); 

! FCTimeXmit ; Chr ( 9 ) ; 

! FCTimeRcvd ; Chr ( 9 ) ; 

! FirePlatf orm; Chr ( 9 ) 



.MoveNext 

Loop 

Close #1 

End If 
End If 

.MoveFirst 

End With 

End If 

bContinue = False 
bWord = False 
bText = False 



mnuPrintErrors : 

Select Case Err. Number 
Case 94 

Sel.TypeText Text:="" 
Resume Next 
End Select 



End Sub 

Private Sub txtNomination_Change ( ) 

'selects correct combo box listing 
Dim ilndex As Integer 

Dim bFound As Boolean 

rsNomination . MoveFirst 
If txtNomination <> " " Then 

Do Until ilndex = rsNomination . RecordCount Or bFound 
If rsNomination ! Nomination = txtNomination Then 
cboNominat ion . Text = rsNomination i Nomination 
bFound = True 

Else 

r sNomi nation. MoveNex t 
ilndex = ilndex + 1 
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End If 



Loop 
End If 

End Sub 

Private Sub txtPlatf orm_Change ( ) 

'selects correct combo box listing 
Dim ilndex As Integer 

Dim bFound As Boolean 

rsPlatf orm.MoveFirst 
If txtPlatf orm <> " n Then 

Do Until ilndex = rsPlatform.RecordCount Or bFound 
If rsPlatform! Platform = txtPlatform Then 
cboPlatf orm. Text = rsPlatform! Platform 
bFound = True 

Else 

rsPlatform . MoveNext 
ilndex = ilndex + 1 
End If 



Loop 
End If 

End Sub 

Private Sub txtTarget_Change ( ) 

'selects correct combo box listing 
Dim ilndex As Integer 

Dim bFound As Boolean 

rsTarget . MoveFirst 
If txtTarget <> " " Then 

Do Until ilndex = rsTarget . RecordCount Or bFound 
If rsTarget ! Targetld = txtTarget Then 
cboTarget . Text = rsTarget ! Targetld 
bFound = True 

Else 

rsTarget .MoveNext 
ilndex = ilndex + 1 
End If 



Loop 
End If 

End Sub 



'★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★•ft-* 

'Module: f rmFireEvent . f rm 
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'Description: Allows user to access the fire event records 

' for addition, deletion, and modification. 

’Programmer: Kevin Colon 



Option Explicit 

Dim rsFireCommand 
Dim stSQL 
Private WordApp 
Private Doc 
Private Sel 



As Recordset 
As String 

As Word. Application 
As Word. Document 
As Word. Selection 



Private Sub cmdAdd_Click { ) 

On Error GoTo HandleAddErrors 

If cmdAdd. Caption = "ScAdd Event" Then 

datFire . Recordset . AddNew 
cboFireCommand. Enabled = True 
cboFireCommand. List Index = -1 
txtTime. Enabled = True 
txtWeaponMagStat .Enabled = True 
txtLocation. Enabled = True 
txtAltitude. Enabled = True 
txtRounds. Enabled = True 
cmdUpdate .Enabled = False 
cmdSave. Enabled = True 
cmdDel .Enabled = False 
cmdAdd. Caption = "^Cancel" 
mnuFile. Enabled = False 
datFire. Enabled = False 



Else 



datFire . Recordset . CancelUpdate 
cboFireCommand. Enabled = False 
txtTime . Enabled = False 
txtWeaponMagStat . Enabled = False 
txtLocation . Enabled = False 
txtAltitude . Enabled = False 
txtRounds. Enabled = False 
cmdUpdate . Enabled = True 
cmdSave .Enabled = False 
cmdDel .Enabled = True 
cmdAdd. Caption = "&Add Event" 
mnuFile. Enabled = True 
datFire . Enabled = True 
cmdAdd . SetFocus 

End If 

cmdAdd_C 1 i c k_Ex i t : 
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Exit Sub 



HandleAddErrors : 

Dim stMess As String 

stMess = "Cannot complete operation. " Sc vbCrLf Sc vbCrLf Sc 
Err . Description 

MsgBox stMess, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 

End Sub 

Private Sub cmdDel_Click ( ) 

Dim iResp As Integer 

On Error GoTo HandleDelErrors 

If da tFire. Recordset .RecordCount > 0 Then 

iResp = MsgBox ( "Delete Event " Sc txtFire Sc vbYesNo, _ 

"Delete Event") 

If iResp = vbYes Then 

With datFire .Recordset 
.Delete 
.MoveNext 
If .EOF Then 

. MovePrevious 
If .BOF Then 

MsgBox "The recordset is empty.", 
vblnf ormation, "No Records" 

End If 
End If 
End With 
End If 

Else 

MsgBox "No records to delete.", vbExclamation, "Delete Event" 
End If 

cmdDel_Click: 

Exit Sub 

HandleDelErrors : 

Dim stMess As String 

stMess = "Cannot complete operation." Sc vbCrLf Sc vbCrLf Sc 
Err . Descript ion 

MsgBox stMess, vbExclamation, "Database Error" 

On Error GoTo 0 



End Sub 

Private Sub cmdSave_Click ( ) 
'save current record 
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II II 



Then 



On Error GoTo HandleSaveErrors 

If cboFireCommand. List Index >= 0 And txtRounds <> 

If Val ( txtCounter) < 10 Then 

txtFire.Text = "FE0000" & txtCounter .Text 

Else 

If Val (txtCounter) < 100 Then 

txtFire.Text = "FEOOO" & txtCounter .Text 

Else 

If Val (txtCounter) < 1000 Then 

txtFire.Text = " FE00" & txtCounter . Text 

Else 

If Val (txtCounter) < 10000 Then 

txtFire.Text = "FE0" & txtCounter . Text 

Else 

txtFire.Text = "FE" & txtCounter . Text 
End If 
End If 
End If 
End If 

datFire .Recordset .Update 

Else 

MsgBox "You must select an Fire Command Event and enter number 
of rounds before saving." _ 

, vb Exclamation, "Add Fire Event" 
datFire . Recordset . CancelUpdate 
End If 

cboFireCommand. Enabled = False 
txtTime .Enabled = False 
txtWeaponMagStat .Enabled = False 
txtLocation. Enabled = False 
txtAltitude . Enabled = False 
txtRounds. Enabled = False 
cmdUpdate. Enabled = True 
cmdSave .Enabled = False 
cmdJDel . Enabled = True 
cmdAdd .Caption = " &Add Event " 
mnuFile .Enabled = True 
datFire .Enabled = True 
cmdAdd . SetFocus 



datFire .Enabled = True 

cmdSave_Click_Exit : 

Exit Sub 

HandleSaveErrors : 

Dim stMess As String 
Select Case Err. Number 

Case 3022 'duplicate key field 

stMess = "Record already exists — could not save> ' " 
MsgBox stMess, vbExc lama t ion, "Database Error" 

On Error GoTo 0 'turn off error trapping 
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Case 3058, 3315 'no entry in key field 

stMess = "Select Fire Command Event and enter number of 
rounds before saving." 

MsgBox stMess, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 

Case Else 

stMess = "Record could not be saved." & vbCrLf _ 

& Err .Description 

MsgBox stMess, vbExclamation, "Database Error" 
datFire .Recordset .CancelUpdate 
Resume Next 
End Select 

End Sub 

Private Sub cmdUpdate_Click ( ) 

If cmdUpdate .Caption = "ScUpdate" And __ 

datFire. Recordset .RecordCount > 0 Then 

cmdUpdate .Caption = "SuScbmit" 
cboFir ©Command . Enabled = True 
txtTime . Enabled = True 
txtWeaponMagStat . Enabled = True 
txtLocation. Enabled = True 
txtAltitude. Enabled = True 
txtRounds .Enabled = True 
cmdAdd. Enabled = False 
cmdSave. Enabled = False 
cmdDel .Enabled = False 
mnuFile. Enabled = False 
datFire. Enabled = False 
datFire . Recordset . Edit 



Else 

If datFire . Recordset . RecordCount > 0 Then 
datFire . Recordset . Update 

cboFireCommand . Enabled = False 
txn Time. Enabled = False 
t *l:WeaponMagStat . Enabled = False 
txtLocation. Enabled = False 
txtAltitude . Enabled = False 
txtRounds .Enabled = False 
cmdDel . Enabled = True 
cmdAdd . Enabled = True 
cmdAdd. Set Focus 
cmdUpdate .Caption = "^Update" 
mnuFile . Enabled = True 
datFire. Enabled = True 



End If 
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End If 



End Sub 

Private Sub datFire_JReposition ( ) 

SetFireRecordNumber 
End Sub 

Private Sub Fonn_Load ( ) 

datFire.DatabaseName = gstNewDatabase 

stSQL = "Select FireCommand from FireCommand" 

Set rsFireCommand = db . OpenRecoraset ( stSQL) 

'fill cboFireCommand 
Do Until rsFireCommand. EOF 

cboFireCommand .Add I tern rsFireCommand l FireCommand 
rsFireCommand . MoveNext 

Loop 



With datFire 
.Refresh 

If Not . Recordset . EOF Then 
. Recordset .MoveLast 
. Recordset .MoveFirst 
End If 
End With 

SetFireRecordNumber 
End Sub 

Private Sub Form_Unload {Cancel As Integer) 

frmMa in. Enabled = True 
Unload Me 

End Sub 

Private Sub mnuFileBack_Click ( ) 

frmMain. Enabled = True 
Unload Me 

End Sub 

Private Sub SetFireRecordNumber { ) 

Dim iRecordCount As Integer 
Dim iCurrentRecord As Integer 
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iRecordCount = datFire . Recordset . RecordCount 
iCurrentRecord = datFire . Recordset . AbsolutePosition + 1 



If datFire . Recordset . EOF Then 

datFire .Caption = "No more records" 

Else 

datFire. Caption = "Fire Event Record " & iCurrentRecord & 

" of " & iRecordCount 

End If 
End Sub 



Private Sub mnuFilePrint_Click { ) 
f rmPrint . Show 

On Error GoTo mnuPrintErrors 

If bContinue = True Then 

With datFire . Recordset 

If bWord = True Then 

Set WordApp = New Word .Application 
WordApp . Documents . Add 
Set Doc = WordApp .Act iveDocument 
Set Sel = WordApp . Selection 

Doc . Tables .Add Range : =Sel . Range, NumRows :=. RecordCount , 

NumColumns : =6 



Sel.TypeText Text :=" Fire" 

Sel .MoveRight unit: =12 

Sel.TypeText Text :=" Fi reCommand" 
Sel .MoveRight unit: =12 

Sel.TypeText Text : ="FireTime" 

Sel. MoveRight unit: =12 

Sel . TypeText Text : = " FirerLocation" 
Sel .MoveRight unit: =12 

Sel.TypeText Text : = "FirerAltitude" 
Sel .MoveRight unit: =12 

Sel.TypeText Text : =" Rounds Fired" 
Sel .MoveRight unit: =12 

Do Until .EOF 

Sel.TypeText Text := IFire 
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'12=next cell 
'12=next cell 
'12=next cell 
' 12=next cell 
' 12=next cell 
' 12=next cell 



cell 



Sel .MoveRight unit: =12 



' 12=next 



Sel . TvpeText Text : = i FireCommand 

Sel .MoveRight unit: =12 ' 12=next 

cell 

Sel.TypeText Text : = 1 FireTime 

Sel .MoveRight unit: =12 '12=next 

cell 

Sel .TypeText Text : = ! FirerLocation 

Sel .MoveRight unit: =12 '12=next 

cell 

Sel.TypeText Text : = ! FirerAltitude 

Sel .MoveRight unit: =12. '12=next 

cell 

Sel.TypeText Text : = I RoundsFired 

Sel .MoveRight unit: =12 '12=next 

cell 



.MoveNext 



Loop 

WordApp. Visible = True 
Set WordApp = Nothing 



Else 

If bText = True Then 



Open App.Path & "\FireEvents.txt" For Output As #1 



Print #1, 

"FireTime"; Chr(9); _ 
"FirerAltitude"; Chr(9); _ 



"Fire" ; Chr(9) ; "FireCommand" 
"FirerLocation"; Chr(9) ; 
"RoundsFired"; Chr(9) 



Chr (9) ; 



Do Until .EOF 

Print #1, IFire; Chr(9); __ 

‘FireCommand; Chr(9); _ 

! FireTime ; Chr ( 9 ) ; _ 
‘FirerLocation; Chr(9); _ 
I FirerAltitude; Chr(9); _ 
! RoundFired ; Chr ( 9 ) 



. MoveNext 

Loop 
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Close #1 



End If 
End If 

.MoveFirst 

End With 

End If 

bContinue = False 
bWord = False 
bText = False 



mnuPrintErrors : 

Select Case Err. Number 
Case 94 

Sel.TypeText Text:=" n 
Resume Next 
End Select 



End Sub 



' Module : f rmGISRS . f rm 

'Description: Allows user to access the GISRS terminal 

' records for addition, deletion, and 

' modification. 

’Programmer: Kevin Colon 



Option Explicit 

Dim rsPlatform As Recordset 

Dim st SQL As String 

Private Sub cboPlatf orm_Click ( ) 

If cboPlatform.Listlndex >= 0 Then 
txtPlatform = cboPlatf orm. Text 
End If 

End Sub 

Private Sub cmdAdd_Click( ) 

On Error GoTo HandleAddErrors 

If cmdAdd. Caption = "&Add" Then 
da tGISRS . Recordset . AddNew 
txtTerminal . Enabled = True 
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txtTerminal . SetFocus 
txtFunct ion. Enabled = True 
cboPlatform. Enabled = True 
cmdAdd. Caption = " ^Cancel" 
cmdSave. Enabled = True 
cmdDel .Enabled = False 
cmdUpdate. Enabled = False 
mnuFile . Enabled = False 
datGISRS . Enabled = False 



Else 

datGISRS . Recordset . CancelUpdate 
txtTerminal .Enabled = False 
txtFunction. Enabled = False 
cboPlatform. Enabled = False 
cmdSave. Enabled = False 
. cmdDel . Enabled = True 
cmdUpdate . Enabled = True 
mnuFile. Enabled = True 
cmdAdd. Caption = "&Add" 
cmdAdd . SetFocus 
datGISRS . Enabled = True 

End If 

cmdAdd_Click_Exit : 

Exit Sub 

HandleAddErrors : 

Dim stMess As String 

stMess = "Cannot complete operation. " & vbCrLf Sc vbCrLf _ 
Sc Err .Description 

MsgBox stMess, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 

End Sub 

Private Sub cmdDel_Click { > 

'delete the current record 
Dim iResp As Integer 

On Error GoTo HandleDelErrors 

If datGISRS. Recordset .RecordCount > 0 Then 

iResp = MsgBox ( "Delete Terminal " Sc txtTerminal . Text & 
vbYesNo, "Delete Terminal") 

If iResp = vbYes Then 

With datGISRS. Recordset 

.Delete 'delete current record 

.MoveNext 'move to following record 

If .EOF Then 

.MovePrevious 
If .BOF Then 

MsgBox "The recordset is empty.", 
vblnf ormation, "No Records" 
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End If 
End If 
End With 
End If 

Else 

MsgBox "No records to delete.", vbExclamation 
# "Delete Terminal" 



End If 

cmdDel_Click_.Exit : 

Exit Sub 

HandleDelErrors : 

Dim stMsg As String 

stMsg = "Cannot complete operation." & vbCrLf Sc vbCrLf _ 

Sc Err .Description 

MsgBox stMsg, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 

End Sub 

Private Sub cmdSave_Click ( ) 

' save the current record 
Dim iResp As Integer 

On Error GoTo HandleSaveErrors 
If txtTerminal .Text <> " " Then 

txtTerminal .Text = UCase ( txtTerminal .Text ) 

iResp = MsgBox ("Do you want to add " Sc txtTerminal . Text Sc 
" to the database?", vbYesNo + vbQuestion, _ 
"Add Terminal") 

If iResp = vbYes Then 

datGISRS . Recordset . Update 
End If 



Else 

MsgBox "You must enter a Terminal before saving.", 
vbExclamation _ 

, "Add Terminal" 

datGISRS . Recordset . CancelUpdate 
End If 

txtTerminal .Enabled = False 
txtFunct ion. Enabled = False 
cboPlatf orm. Enabled = False 
cmdSave . Enabled = False 
cmdDel . Enabled = True 
datGISRS . Enabled = True 
mnuFile . Enabled = True 
cmdAdd .Caption = "ScAdd" 
cmdAdd . SetFocus 
cmdUpdate . Enabled = True 
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cmdSave_Click_Exit : 

Exit Sub 

HandleSaveErrors : 

Dim stMess As String 
Select Case Err. Number 

Case 3022 'duplicate key field 

stMess = "Record already exists — could not save>' 
MsgBox stMess, vbExclamation , "Database Error" 

On Error GoTo 0 'turn off error trapping 

Case 3058, 3315 'no entry in key field 

stMess = "Enter a location before saving." 

MsgBox stMess, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 

Case Else 

stMess = "Record could not be saved." & vbCrLf _ 

& Err . Description 

MsgBox stMess, vbExclamation, "Database Error" 
datGISRS . Recordset . CancelUpdate 
Resume Next 
End Select 

End Sub 

Private Sub cmdUpdate_Click ( ) 

If cmdUpdate. Caption = "ScUpdate" And _ 

datGISRS . Recordset . RecordCount > 0 Then 

cmdUpdate .Caption = "SuScbmit" 
txtTerminal . Enabled = True 
txtFunct ion . Enabled = True 
cboPlat form. Enabled = True 
cmdDel . Enabled = False 
mnuFile . Enabled = False 
txtTerminal . SetFocus 
cmdAdd. Enabled = False 
datGISRS .Enabled = False 
datGISRS . Recordset . Edit 

Else 

If datGISRS. Recordset .RecordCount > 0 Then 
txtTerminal = UCase ( txtTerminal) 
datGISRS .Recordset .Update 

txtTerminal . Enabled = False 
txt Functi on . Enabled = False 
cboPlatform. Enabled = False 
cmdDel . Enabled = True 
mnuFile. Enabled = True 
cmdAdd. Enabled = True 
cmdAdd . SetFocus 
cmdUpdate .Caption = "ScUpdate" 
datGISRS . Enabled = True 
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End If 
End If 

End Sub 

Private Sub datGISRS_Reposition ( ) 
SetTerminalRecordNumber 
End Sub 

Private Sub FillPlatf ormCombo ( ) 

Dim iCount As Integer 
'fill the PlatType combo box 
cboPlatf orm . Clear 

With rsPlatform 

iCount = .RecordCount 

'fill the list 
Do Until .EOF 

If ! Platform <> " " Then 

cboPlatf orm. AddI tern ! Platform 

End If 
.MoveNext 

Loop 
End With 



End Sub 

Private Sub Form_Load() 

datGISRS .DatabaseName = gstNewDatabase * 

st SQL = "Select Platform from Platform" 

Set rsPlatform = db. OpenRecordset { stSQL) 

FillPlatf ormCombo 

With datGISRS 
. Refresh 

If Not . Recordset . EOF Then 
. Recordset . MoveLast 
.Recordset .MoveFirst 
End If 
End With 

SetTerminalRecordNumber 
End Sub 
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Private Sub Form_Un load (Cancel As Integer) 

frmMain . Enabled = True 
Unload Me 

End Sub 

Private Sub mnuFileBack_Click ( ) 

frmMain. Enabled = True 
Unload Me 

End Sub 

Private Sub mnuFileSearch_Click ( ) 

datGISRS .Recordset .FindFirst " [GISRSTerminal] = ' " Sc _ 

InputBox ( "Enter the GISRS Terminal", "GISRS Terminal 

Search") & " ' " 

If datGISRS -Recordset .NoMatch Then 

MsgBox "GISRS Terminal was not found.", vbOKOnly, "GISRS 
Terminal Search" 

datGISRS . Recordset .MoveFirst 'go to first record 

End If 

End Sub 

Private Sub SetTerminalRecordNumber ( ) 

Dim iRecordCount As Integer 
Dim iCurrentRecord As Integer 

iRecordCount = datGISRS . Recordset . RecordCount 
iCurrentRecord = datGISRS . Recordset . AbsolutePosition + 1 
If datGISRS. Recordset .EOF Then 

datGISRS. Caption = "No more records" 

Else 

da tGISRS. Caption = "Terminal " Sc iCurrentRecord & _ 

" of " & iRecordCount 

End If 
End Sub 

Private Sub txtPlatf ormj Change ( ) 

'selects correct combo box listing 
Dim i Index As Integer 
Dim bFound As Boolean 

rsPlatf orm. MoveFirst 
If txtPlatform <> " " Then 

Do Until ilndex = rsPlatf orm. RecordCount Or bFound 
If rsPlatf orm! Platform = txtPlatform Then 
cboPlatf orm. Text = rsPlatf orm! Platform 
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bFound = True 



Else 

rsPlatf orm.MoveNext 
i Index = i Index + 1 
End If 

Loop 

Else 

cboPlatform.Listlndex = -1 
End If 

End Sub 



'Module: frmlmpact Event . frm 

'Description: Allows user to access the impact event 

' records for addition, deletion, and 

' modification. 

'Programmer: Kevin Colon 



Option Explicit 



Dim rsFire As 
Dim rsPlatform 
Dim rsSensor 
Dim stSQLl 
Dim stSQL2 
Dim stSQL3 
Private WordApp 
Private Doc 
Private Sel 



Recordset 
As Recordset 

As Recordset 
As String 
As String 
As String 

As Word. Application 
As Word. Document 
As Word. Selection 



Private Sub cboFire_Change ( ) 

If cboFire . Listlndex >= 0 Then 
txtFire = cboFire. Text 
End If 

End Sub 

Private Sub cboSensor_Change ( ) 

If cboSensor .Listlndex >= 0 Then 
txt Sensor = cboSensor .Text 
End If 

End Sub 

Private Sub cboPlat f orm_Change ( ) 

If cboPlatform.Listlndex >= 0 Then 
txtPlatform = cbo Plat form. Text 
End If 
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End Sub 



Private Sub cmdAdd__Click ( ) 

On Error GoTo HandleAddErrors 

If cmdAdd. Caption = " ScAdd Event" Then 

dat Impact . Recordset .Ad dNew 
cboFire . Enabled = True 
cboPlatf orm. Enabled = True 
cboSensor. Enabled = True 
cboFire .List Index = -1 
cboPlatf orm. Listlndex = -1 
cboSensor .Listlndex = -1 
txtlmpactTime. Enabled = True 
txtBDATime . Enabled = True 
txtBDA. Enabled = True 
cmdUpdate . Enabled = False 
cmdSave . Enabled = True 
cmdDel .Enabled = False 
cmdAdd. Caption = " SeCancel" 
mnuFile. Enabled = False 
datlmpact . Enabled = False 



Else 



datlmpact . Recordset . CancelUpdate 
cboFire . Enabled = False 
cboPlatf orm. Enabled = False 
cboSensor . Enabled = False 
txtlmpactTime. Enabled = False 
txtBDATime. Enabled = False 
txtBDA. Enabled = False 
cmdUpdate .Enabled = True 
cmdSave . Enabled = False 
cmdDel . Enabled = True 
cmdAdd. Caption = °&Add Event" 
mnuFile . Enabled = True 
datlmpact . Enabled = True 
cmdAdd. SetFocus 

End If 

cmdAdd_Click_Exit : 

Exit Sub 

HandleAddErrors : 

Dim stMess As String 

stMess = "Cannot complete operation. ” & vbCrLf & vbCrLf & 

Err . Description 

MsgBox stMess, vbExclamation , "Database Error" 

On Error GoTo 0 'turn off error trapping 
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End Sub 



Private Sub cmdDel_Click { ) 

Dim iResp As Integer 

On Error GoTo HandleDelErrors 

If da t Impact .Recordset. RecordCount > 0 Then 

iResp = MsgBox ( "Delete Event " Sc txtlmpact Sc "?", vbYesNo, _ 
"Delete Event") 

If iResp = vbYes Then 

With datlmpact . Recordset 
.Delete 
. MoveNext 
If .EOF Then 

. MovePrevious 
If .BOF Then 

MsgBox "The recordset is empty. ", 
vblnf ormation, "No Records" 

End If 
End If 
End With 
End If 

Else 

MsgBox "No records to delete.", vbExclamat ion, "Delete Event" 
End If 

cmdDel_Click: 

Exit Sub 

HandleDelErrors : 

Dim stMess As String 

stMess = "Cannot complete operation." Sc vbCrLf Sc vbCrLf Sc 
Err . Description 

MsgBox stMess, vbExc lama t ion, "Database Error" 

On Error GoTo 0 



End Sub 

Private Sub cmdSave_Click ( ) 

7 save current record 
On Error GoTo HandleSaveErrors 
If cboFire . Listlndex >= 0 Then 
If Val ( txtCounter) < 10 Then 

txtlmpact .Text = "IE0000" Sc txtCounter .Text 

Else 

If Val (txtCounter) < 100 Then 

txtlmpact .Text = "IE000" Sc txtCounter . Text 

Else 

If Val (txtCounter) < 1000 Then 
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IEOO" Sc txtCounter . Text 



txt Impact . Text = " 

Else 

If Val ( txtCounter) < 10000 Then 

txt Impact .Text = " IEO" Sc txtCounter .Text 

Else 

txt Impact .Text = "IE" Sc txtCounter . Text 
End If 
End If 
End If 
End If 

datlmpact . Recordset . Update 

Else 

MsgBox "You must select a Fire Event before saving." _ 

, vbExc lama t ion, "Add Impact Event" 
datlmpact . Recordset . CancelUpdate 
End If 

cboFi re . Enabled = False 
cboPlat form. Enabled = False 
cboSensor. Enabled = False 
txtlmpactTime . Enabled = False 
txtBDATime. Enabled = False 
txtBDA. Enabled = False 
cmdUpdate. Enabled = True 
cmdSave . Enabled = False 
cmdDel .Enabled = True 
cmdAdd .Caption = "ScAdd Event" 
mnuFile. Enabled = True 
datlmpact .Enabled = True 
cmdAdd . SetFocus 



datlmpact . Enabled = True 

cmdSave_Click_Exit : 

Exit Sub 

HandleSaveErrors : 

Dim stMess As String 
Select Case Err. Number 

Case 3022 'duplicate key field 

stMess = "Record already exists -- could not save>'" 
MsgBox stMess, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 

Case 3058, 3315 'no entry in key field 

stMess = "Select Fire Event before saving." 

MsgBox stMess, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 

Case Else 

stMess = "Record could not be saved." Sc vbCrLf _ 

& Err . Description 

MsgBox stMess, vbExclamation, "Database Error" 

117 



datlmpact . Recordset . CancelUpdate 
Resume Next 
End Select 

End Sub 

Private Sub cmdUpdate_Click ( ) 

If cmdUpdate .Caption = " ScUpdate" And _ 

datlmpact . Recordset .RecordCount > 0 Then 

cmdUpdate . Caption = " Su&bmi t " 
cboFire . Enabled = True 
cboPlatform. Enabled = True 
cboSensor .Enabled = True 
txtlmpactTime. Enabled = True 
txtBDATime . Enabled = True 
txtBDA. Enabled = True 
cmdAdd. Enabled = False 
cmdSave. Enabled = False 
cmdDel . Enabled = False 
mnuFile . Enabled = False 
datlmpact . Enabled = False 
datlmpact . Recordset . Edit 



Else 

If datlmpact . Recordset . RecordCount > 0 Then 
datlmpact .Recordset .Update 

cboFire . Enabled = False 
cboPlatform. Enabled = False 
cboSensor .Enabled = False 
txtlmpactTime. Enabled = False 
txtBDATime. Enabled = False 
txtBDA. Enabled = False 
cmdDel . Enabled = True 
cmdAdd . Enabled = True 
cmdAdd. SetFocus 
cmdUpdate .Caption = "^Update" 
mnuFile .Enabled = True 
datlmpact .Enabled = True 



End If 
End If 

End Sub 

Private Sub datImpact_Reposition ( ) 
SetlmpactRecordNumber 
End Sub 

Private Sub Form_JLoad() 
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dat Impact .DatabaseName = gstNewDatabase 



stSQLl = "Select Fire from Fire" 

stSQL2 = "Select Platform from Platform" 

stSQL3 = "Select SensorType from SensorType" 



Set rsFire = db. OpenRecordset ( stSQLl) 

Set rsPlatform = db. OpenRecordset (stSQL2 ) 

Set rsSensor = db. OpenRecordset (stSQL3) 

'fill cboFire 
Do Until rsFire. EOF 

cboFire .AddI tern rsFire iFire 
rsFire . MoveNext 

Loop 

'fill cboPlatform 
Do Until rsPlatform. EOF 

cboPlatform. AddI tern rsPlatform! Platform 
rsPlatform. MoveNext 

Loop 

'fill cboSensor 
Do Until rsSensor. EOF 

cboSensor .AddI tern rsSensor ! SensorType 
rsSensor .MoveNext 

Loop 

With dat Impact 
.Refresh 

If Not .Recordset .EOF Then 
. Recordset . MoveLas t 
. Recordset .MoveFirst 
End If 
End With 

SetlmpactRecordNumber 
End Sub 

Private Sub SetlmpactRecordNumber ( ) 

Dim iRecordCount As Integer 
Dim iCurrentRecord As Integer 

iRecordCount = datlmpact . Recordset . RecordCount 
iCurrentRecord = datlmpact . Recordset . AbsolutePosition + 1 

If datlmpact .Recordset . EOF Then 

datlmpact . Caption = "No more records" 

Else 

datlmpact .Caption = "Impact Event Record " & iCurrentRecord & 

" of " Sc iRecordCount 
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End If 



End Sub 

Private Sub Form_Unload (Cancel As Integer) 

frmMa in. Enabled = True 
Unload Me 

End Sub 

Private Sub mnuFileBack_Click ( ) 

frmMain. Enabled = True 
Unload Me 

End Sub 

Private Sub mnuFilePrint_Click ( ) 
f rmPrint . Show 

On Error GoTo mnuPr in t Errors 

If bContinue = True Then 

With datlmpact . Recordset 

If bWord = True Then 

Set WordApp = New Word. Application 
WordApp . Documents . Add 
Set Doc = WordApp. Act iveDocument 
Set Sel = WordApp. Selection 

Doc . Tables . Add Range : =Sel . Range , NumRows : = . RecordCount , 

NumColumns : =7 



Sel.TypeText Text : = ” Impact " 

Sel .MoveRight unit: =12 

Sel.TypeText Text : ="FireEvent " 
Sel .MoveRight unit: =12 

Sel .TypeText Text :=" Impact Time” 
Sel .MoveRight unit: =12 

Sel.TypeText Text : = ” BDA” 

Sel .MoveRight unit: =12 

Sel . TypeText Text : = ” BDATime ” 
Sel .MoveRight unit: =12 

Sel.TypeText Text : = n Platform" 
Sel .MoveRight • unit : =12 
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'12=next cell 
'12=next cell 
'12=next cell 
'12=next cell 
'12=next cell 



'12=next cell 



Sel.TypeText Text : =" SensorType" 

Sel .MoveRight unit: =12 '12 

Do Until .EOF 

Sel . TypeText Text : = ! Impact 
Sel .MoveRight unit: =12 

cell 

Sel.TypeText Text : = ! FireEvent 
Sel .MoveRight unit: =12 

cell 

Sel.TypeText Text : = ! ImpactTime 
Sel .MoveRight unit: =12 

cell 

Sel.TypeText Text : = ! BDA 
Sel . MoveRight unit : =12 

cell 

Sel.TypeText Text : = ! BDATime 
Sel .MoveRight unit: =12 

cell 

Sel .TypeText Text :=! Platform 
Sel .MoveRight unit: =12 

cell 

Sel.TypeText Text :=! SensorType 
Sel .MoveRight unit: =12 

cell 



.MoveNext 



Loop 

WordApp .Visible = True 
Set WordApp = Nothing 



Else 

If bText = True Then 

Open App . Path Sc "\ImpactEvents.txt" For 

#1 

Print #1, "Impact"; Chr(9); "FireEvent” 
" ImpactTime " ; Chr ( 9 ) ; _ 



next cell 

' 12=next 
' 12=next 
' 12=next 
' 12=next 
' 12=next 
' 12=next 
' 12=next 



Output As 
; Chr (9) ; 



Chr (9) 



BDA" ; Chr ( 9 ) ; " BDATime ” ; Chr ( 9 ) ; 

Platform" ; Chr ( 9 ) ; " SensorType " ; 



Do Until .EOF 



Print #1, Ilmpact; Chr(9); _ 

! FireEvent ; Chr ( 9 ) ; _ 

1 ImpactTime ; Chr ( 9 ) ; _ 
! BDA ; Chr (9); _ 
IBDATime ; Chr (9) ; _ 

1 Platform; Chr(9); 
ISensorType; Chr (9) 



. MoveNext 

Loop 

Close #1 

End If 
End If 

.MoveFirst 

End With 

End If 

bContinue = False 
bWord =■ False 
bText = False 



mnuPrintErrors : 

Select Case Err. Number 
Case 94 

Sel.TypeText Text:=" M 
Resume Next 
End Select 



End Sub 

Private Sub txtFire_Change ( ) 

'selects correct combo box listing 
Dim ilndex As Integer 

Dim bFound As Boolean 

rsFire . MoveFirst 
If txtFire <> n " Then 

Do Until ilndex = rsFire . RecordCount Or bFound 
If rsFire IFire = txtFire Then 
cboFire.Text = rsFire IFire 
bFound = True 

Else 

rsFire .MoveNext 
ilndex = ilndex + 1 
End If 
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Loop 
End If 

End Sub 

Private Sub txtSensor__Change ( ) 

'selects correct combo box listing 
Dim i Index As Integer 

Dim bFound As Boolean 

rsSensor . MoveFirst 
If txtSensor <> " " Then 

Do Until ilndex = rsSensor . RecordCount Or bFound 
If rsSensor I SensorType = txtSensor Then 
cboSensor .Text = rsSensor ! SensorType 
bFound = True 

Else 

rsSensor . MoveNext 
ilndex = ilndex + 1 
End If 



Loop 
End If 

End Sub 

Private Sub txtPlatf orm__Change ( ) 

'selects correct combo box listing 
Dim ilndex As Integer 

Dim bFound As Boolean 

rsPlat form. MoveFirst 
If txtPlatform <> " " Then 

Do Until ilndex = rsPlatform. RecordCount Or bFound 
If rsPlatform! Platform = txtPlatform Then 
cboPlatf orm.Text = rsPlatform! Platform 
bFound = True 

Else 

rsPlatform. Mo veNex t 
ilndex = ilndex + 1 
End If 



Loop 
End If 

End Sub 



'Module : f rmlnitiatives . frm 

'Description: Allows user to access the initiatives 

' records for addition, deletion, and 

' modification. 
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'Programmer: Kevin Colon 



Option Explicit 

Private Sub cmdAdd_Click ( ) 

On Error GoTo HandleAddErrors 

If cmdAdd. Caption = "&Add" Then 

datlni tiatives . Recordset . AddNew 
txtlnitiative .Enabled = True 
txtlnitiative . SetFocus 
txtDescription. Enabled = True 
cmdAdd. Caption = "&Cancel" 
cmdSave . Enabled = True 
cmdDel . Enabled = False 
cmdUpdate .Enabled = False 
mnuFile . Enabled = False 
datlnitiatives . Enabled = False 



Else 

datlnitiatives . Recordset .CancelUpdate 

txtlnitiative . Enabled = False 

txtDescription. Enabled = False 

cmdSave . Enabled = False 

cmdDel . Enabled = True 

cmdUpdate. Enabled = True 

mnuFile . Enabled = True 

cmdAdd . Cap t i on = " ScAdd " 

cmdAdd. SetFocus 

datlnitiatives. Enabled = True 

End If 

cmdAdd_C lie k_Ex i t : 

Exit Sub 

HandleAddErrors : 

Dim stMess As String 

stMess = "Cannot complete operation. " & vbCrLf & vbCrLf 
Sc Err .Description 

MsgBox stMess, vbExclamation, "Database Error" 

On Error GoTo 0 ’turn off error trapping 



End Sub 

Private Sub cmdDel_Click ( ) 

’delete the current record 
Dim iResp As Integer 

On Error GoTo HandleDel Errors 

If datlnitiatives .Recordset .RecordCount > 0 Then 

iResp = MsgBox ( "Delete Initiative " & txtlnitiative . Text & 



vbYesNo, "Delete Initiative") 

If iResp = vbYes Then 

With datlnitiatives . Recordset 

.Delete 'delete current record 

.MoveNext 'move to following record 

If .EOF Then 

. MovePrevious 
If -BOF Then 

MsgBox "The recordset is empty." , 
vblnformation, "No Records" 

End If 
End If 
End With 
End If 

Else 

MsgBox "No records to delete.", vbExclamation _ 

, "Delete Initiative" 



End If 

cmdDel._Click:_Exit : 

Exit Sub 

HandleDelErrors : 

Dim stMsg As String 

stMsg = "Cannot complete operation." & vbCrLf & vbCrLf _ 

Sc Err .Description 

MsgBox stMsg, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 

End Sub 

Private Sub cmdSave_Click ( ) 

'save the current record 
Dim iResp As Integer 

On Error GoTo HandleSaveErrors 

If txtlni tiative <> "" And txtDescription <> "" Then 
txtlnitiative = UCase ( txtlnitiative) 

iResp = MsgBox ("Do you want to add " & txtlnitiative & 
" to the database?", vbYesNo + vbQuestion, 
"Add Initiative") 

If iResp = vbYes Then 

datlnitiatives . Recordset . Update 
End If 



Else 

MsgBox "You must enter an Initiative and a description before 
saving.", vbExclamation _ 

, "Add Initiative" 

datlnitiatives . Recordset . CancelUpdate 
End If 

txtlnitiative. Enabled = False 



125 



txtDescript ion. Enabled = False 
cmdSave. Enabled = False 
cmdDel. Enabled = True 
datlnitiatives. Enabled = True 
mnuFile. Enabled = True 
cmdAdd. Caption = "&Add" 
cmdAdd . SetFocus 
cmdUpdate. Enabled = True 



cmdSave_Click_Exit : 

Exit Sub 

HandleSaveErrors : 

Dim stMess As String 
Select Case Err. Number 

Case 3022 'duplicate key field 

stMess = "Record already exists -- could not save> ' 
MsgBox stMess, vbExc lama t ion , "Database Error" 

On Error GoTo 0 'turn off error trapping 

Case 3058, 3315 'no entry in key field 

stMess = "Enter a Initiative name before saving." 
MsgBox stMess, vbExc lama t ion , "Database Error" 

On Error GoTo 0 'turn off error trapping 

Case Else 

stMess = "Record could not be saved." Sc vbCrLf _ 

& Err .Description 

MsgBox stMess, vbExc lamat ion, "Database Error" 
datlnitiatives .Recordset .CancelUpdate 
Resume Next 
End Select 

End Sub 

Private Sub cmdUpdate_Click ( } 

If cmdUpdate. Caption = "ScUpdate" And _ 

datlnitiatives .Recordset .RecordCount > 0 Then 

cmdUpdate .Caption = "SuScbmit" 
txtlnitiative . Enabled = True 
txtDescription . Enabled = True 
cmdDel . Enabled = False 
mnuFile. Enabled = False 
txtlnitiative . SetFocus 
cmdAdd. Enabled = False 
datlnitiatives . Enabled = False 
datlnitiatives . Recordset . Edit 

Else 

If datlnitiatives .Recordset .RecordCount > 0 Then 
datlnitiatives . Recordset . Update 



txtlnitiative. Enabled = False 
txtDescript ion. Enabled = False 



cmdDel . Enabled = True 
mnuFile . Enabled = True 
cmdAdd. Enabled = True 
cmdAdd. SetFocus 
cmdUpdate .Caption = "^Update" 
datlnitiatives .Enabled = True 
End If 
End If 

End Sub 

Private Sub datlnit iatives_Reposit ion ( ) 
SetlnitiativeRecordNumber 

End Sub 

Private Sub Form_Load() 

datlnitiatives . DatabaseName = gstNewDat abase 

With datlnitiatives 
.Refresh 

If Not .Recordset .EOF Then 
.Recordset .MoveLast 
.Recordset .MoveFirst 
End If 
End With 

SetlnitiativeRecordNumber 



End Sub 

Private Sub FormJJnload (Cancel As Integer) 
frmMain. Show 
frmMain. Enabled = True 
Unload Me 

End Sub 

Private Sub mnuFileBack__Click ( ) 

frmMain. Enabled = True 
Unload Me 

End Sub 

Private Sub mnuFileSearch_Click { ) 

datlnitiatives . Recordset . FindFirst "[Description] = _ 

InputBox { "Enter the Initiative", "Initiative Search") & 



If datlnitiatives . Recordset .NoMatch Then 

MsgBox "Initiative was not found.", vbOKOnly, "Initiative 

Search" 
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go to first record 



datlnitiatives .Recordset .MoveFirst 
End If 

End Sub 

Private Sub SetlnitiativeRecordNumber ( ) 

Dim iRecordCount As Integer 
Dim iCurrentRecord As Integer 

iRecordCount = datlnitiatives . Recordset . RecordCount 
iCurrentRecord = datlnitiatives . Recordset . AbsolutePosit ion + 1 
If datlnitiatives .Recordset . EOF Then 

datlnitiatives .Caption = "No more records" 

Else 

datlnitiatives .Caption = "Initiative " & iCurrentRecord & 

' " of " & iRecordCount 

End If 
End Sub 



'★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★•A-****** 

'Module: frmLAWS.frm 

'Description: Allows user to access the LAWS terminal 

' records for addition, deletion, and 

' modification. 

’ Programmer : Kevin Colon 



Option Explicit 

Dim rsPlatfono As Recordset 

Dim stSQL As String 

Private Sub cboPlatf orm_Click ( ) 

If cboPlatform.Listlndex >= 0 Then 
txtPlatform = cboPlatf orm. Text 
End If 

End Sub 

Private Sub cmdAdd_Click { ) 

On Error GoTo HandleAddErrors 

If cmdAdd. Caption = "&Add" Then 
da tLAWS. Recordset .AddNew 
txtTerminal . Enabled = True 
txtTerminal . SetFocus 
txtFunction . Enabled = True 
cboPlatf orm. Enabled = True 
cmdAdd. Caption = "&Cancel n 
cmdSave . Enabled = True 
cmdDel .Enabled = False 
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cmdUpdate . Enabled = False 
mnuFile. Enabled = False 
datLAWS . Enabled = False 



Else 

datLAWS . Recordset . CancelUpdate 
txtTerminal. Enabled = False 
txt Function. Enabled = False 
cboPlat form. Enabled = False 
cmdSave . Enabled = False 
cmdDel . Enabled = True 
cmdUpdate . Enabled = True 
mnuFile . Enabled = True 
cmdAdd. Caption = "Sc Add" 
cmdAdd . SetFocus 
datLAWS . Enabled = True 

End If 

cmdAdd_C lie k_Ex i t : 

Exit Sub 

HandleAddErrors : 

Dim stMess As String 

stMess = "Cannot complete operation. " & vbCrLf & vbCrLf _ 
& Err .Description 

MsgBox stMess, vbExclamation, "Database Error" 

On Error GoTo 0 7 turn off error trapping 

End Sub 

Private Sub cmdDel_Click ( ) 

'delete the current record 
Dim iResp As Integer 

On Error GoTo HandleDelErrors 

If datLAWS . Recordset . RecordCount > 0 Then 

iResp = MsgBox ( "Delete Terminal " Sc txtTerminal . Text Sc 
vbYesNo, "Delete Terminal") 

If iResp = vbYes Then 

With datLAWS .Recordset 

.Delete 'delete current record 

.MoveNext 'move to following record 

If .EOF Then 

. Move Previous 
If .BOF Then 

MsgBox "The recordset is empty.", 
vblnformation, "No Records" 

End If 
End If 
End With 
End If 

Else 

MsgBox "No records to delete.", vbExclamation _ 



Delete Terminal 



End If 

cmdDel_Click__Exit : 

Exit Sub 

HandleDelErrors : 

Dim stMsg As String 

stMsg = "Cannot complete operation." & vbCrLf & vbCrLf _ 

& Err .Description 

MsgBox stMsg, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 

End Sub 

Private Sub cmdSave_Click ( ) 

' save the current record 
Dim iResp As Integer 

On Error GoTo HandleSaveErrors 
If txtTerminal .Text <> "" Then 

txtTerminal .Text = UCase ( txtTerminal .Text ) 
iResp = MsgBox ("Do you want to add " & txtTerminal . Text & 
" to the database?", vbYesNo + vbQuestion, _ 
"Add Terminal " ) 

If iResp = vbYes Then 

datLAWS .Recordset .Update 
End If 



Else 

MsgBox "You must enter a Terminal before saving.", 
vbExclamation _ 

, "Add Terminal" 
datLAWS . Recordset .CancelUpdate 
End If 

txtTerminal .Enabled = False 
txtFunct ion . Enabled = False 
cboPlatform. Enabled = False 
cmdSave .Enabled = False 
cmdDel .Enabled = True 
datLAWS . Enabled = True 
mnuFile. Enabled = True 
cmdAdd. Caption = "&Add" 
cmdAdd . SetFocus 
cmdUpdate. Enabled = True 



cmdSave_Click_Exit : 

Exit Sub 

HandleSaveErrors : 

Dim stMess As String 
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Select Case Err. Number 

Case 3022 'duplicate key field 

stMess = "Record already exists -- could not save> ' " 
MsgBox stMess, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 

Case 3058, 3315 'no entry in key field 

stMess = "Enter a location before saving." 

MsgBox stMess, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 

Case Else 

stMess = "Record could not be saved." Sc vbCrLf _ 

Sc Err . Description 

MsgBox stMess, vbExclamation, "Database Error" 
datLAWS . Recordset . CancelUpdate 
Resume Next 
End Select 

End Sub 

Private Sub cmdUpdate_Click { ) 

If cmdUpdate. Caption = "ScUpdate" And _ 

datLAWS .Recordset .RecordCount > 0 Then 

cmdUpdate. Caption = "SuScbmit" 
txtTerminal .Enabled = True 
txtFunction. Enabled = True 
cboPlatform. Enabled = True 
cmdDel .Enabled = False 
mnuFile . Enabled = False 
txtTerminal . SetFocus 
cmdAdd. Enabled = False 
datLAWS . Enabled = False 
datLAWS . Recordset . Edit 

Else 

If datLAWS. Recordset .RecordCount > 0 Then 
txtTerminal = UCase ( txtTerminal ) 
datLAWS. Recordset .Update 

txtTerminal .Enabled = False 
txtFunction . Enabled = False 
cboPlatform. Enabled = False 
cmdDel . Enabled = True 
mnuFile . Enabled = True 
cmdAdd. Enabled = True 
cmdAdd . SetFocus 
cmdUpdate. Caption = "ScUpdate" 
datLAWS . Enabled = True 
End If 
End If 

End Sub 

Private Sub datLAWSJReposition ( ) 
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SetTerminalRecordNumber 



End Sub 

Private Sub FillPlatf ormCombo ( ) 

Dim iCount As Integer 
'fill the PlatType combo box 
cboPlatf orm. Clear 

With rsPlatform 

iCount = .RecordCount 

'fill the list 
Do Until .EOF 

If ! Platform <> " " Then 

cboPlatf orm. Addltem ! Platform 

End 1 f 
. Move-Next 

Loop 
End With 



End Sub 

Private Sub Form_Load ( ) 

datLAWS . DatabaseName = gstNewDatabase 

stSQL = "Select Platform from Platform" 
Set rsPlatform = db . OpenRecordset (stSQL) 

FillPlatf ormCombo 

With datLAWS 
.Refresh 

If Not .Recordset .EOF Then 
.Recordset .MoveLast 
.Recordset .MoveFirst 
End If 
End With 

SetTerminalRecordNumber 
End Sub 

Private Sub Form_Unload (Cancel As Integer) 

frmMain. Enabled = True 
Unload Me 

End Sub 
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Private Sub mnuFileBack_Click ( ) 



frmMain. Enabled = True 
Unload Me 

End Sub 

Private Sub mnuFileSearch_Click ( ) 

datLAWS . Recordset . FindFirst " [LAWSTerminal] = ' " & _ 

InputBox ( "Enter the LAWS Terminal", "LAWS Terminal 

Search") & n ' " 

If datLAWS . Recordset .NoMatch Then 

MsgBox "LAWS Terminal was not found.", vbOKOnly, "LAWS Terminal 

Search" 

datLAWS. Recordset .MoveFirst 'go to first record 

End If 

End Sub 

Private Sub SetTerminalRecordNumber ( ) 

Dim iRecordCount As Integer 
Dim iCurrentRecord As Integer 

iRecordCount = datLAWS . Recordset . RecordCount 
iCurrentRecord = datLAWS . Recordset . AbsolutePosition + 1 
If datLAWS. Recordset .EOF Then 

datLAWS .Caption = "No more records" 

Else 

datLAWS .Caption = "Terminal " & iCurrentRecord & _ 

" of " & iRecordCount 

End If 
End Sub 

Private Sub txtPlatf orm_Change ( ) 

'selects correct combo box listing 
Dim ilndex As Integer 
Dim bFound As Boolean 

rsPlatf orm. MoveFirst 

If txtPlatf orm <> "" Then 

Do Until ilndex = rsPlatf orm. RecordCount Or bFound 
If rsPlatform! Platform = txtPlatform Then 
cboPlatf orm. Text = rsPlatform! Platform 
bFound = True 

Else 

rsPlatform. MoveNext 
ilndex = ilndex + 1 
End If 

Loop 
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Else 



cboPlatform.Listlndex = -1 
End If 

End Sub 



'Module: frmMain.frm 

'Description: Allows user to access the forms linked to 

' the database by use of dropdown menus. 

'Programmer: Kevin Colon 



Option Explicit 

Dim rsAcquisition As Recordset 

Dim rsFire As Recordset 

Dim rsFireCommand As Recordset 

Dim rslmpact As Recordset 

Dim rsMensuration As Recordset 

Dim rsNomination As Recordset 

Dim rsTarget As Recordset 

Dim rsLAWSdata As Recordset 

Dim rsGISRS As Recordset 

Dim rsLAWS As Recordset 

Dim rsPlatform As Recordset 

Dim rsSensor As Recordset 

Dim rsThreat As Recordset 

Dim rsWeapon As Recordset 

Dim stSQLl As String 

Dim stSQL2 As String 

Dim stSQL3 As String 

Dim stSQL4 As String 

Dim stSQL.5 As String 

Dim stSQL6 As String 

Dim stSQL7 As String 

Dim stSQL8 As String 

Dim stSQL9 As String 

Dim stSQLlO As String 

Dim stSQLll As String 

Dim stSQL12 As String 

Dim stSQL13 As String 

Dim s tSQL14 As String 

Dim stSearch As String 

Dim stMessage As String 

Dim bGFound As Boolean 

Dim bLFound As Boolean 



Private Sub AddAcquisition ( ) 
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rsAcquisition .AddNew 



If rsAcquisition ! AcquisitionCounter < 10 Then 

rsAcquisition! Acquisition = "AEOOOO" Sc 
rsAcquisition ! AcquisitionCounter 

Else 

If rsAcquisition ! AcquisitionCounter < 100 Then 

rsAcquisitioniAcquisition = "AEOOO" Sc 
rsAcquisition ! AcquisitionCounter 

Else 

If rsAcquisition 'AcquisitionCounter < 1000 Then 

rsAcquisition! Acquisition = "AEOO" Sc 
rsAcquisition ! AcquisitionCounter 

Else 

If rsAcquisition 'AcquisitionCounter < 10000 Then 

rsAcquisit ion ! Acquisition = "AEO" Sc 
rsAcquisition ! AcquisitionCounter 

Else 

rsAcquisition ! Acquisition = " AE " Sc 
rsAcquisition ‘AcquisitionCounter 

End If 
End If 
End If 
End If 

rsAcquisition ! Trackld = rsLAWSdata ITrackld 
rsAcquisition’ThreatType = rsLAWSdata iThreatType 

'get string from LAWS data and use it for platform search to 
'fill platform field in Acquisition table from LAWSdata info 
If rsLAWSdata ‘Nominator <> " " Then 

st Search = rsLAWSdata [Nominator 

rsGISRS .MoveFirst 
rsLAWS .MoveFirst 
bGFound = False 
bLFound = False 

'checks GISRS table 

Do Until rsGISRS. EOF Or bGFound = True 

If rsGISRS ! GISRSTerminal = stSearch Then 

bGFound = True 
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rsAcquisition! AcqPlatf orm = rsGISRS ‘Location 



Else 

rsGISRS -MoveNext 
End If 

Loop 

'checks LAWS table if search not successful in GISRS table 
If bGFound = False Then 

Do Until rsLAWS.EOF Or bLFound = True 

If rsLAWS iLAWSTerminal = st Search Then 

bLFound = True 

rsAcquisition ‘AcqPlatf orm = rsLAWS ‘ Location 



Else 

rsLAWS . MoveNext 
End If 

Loop 
End If 
End If 

rsAcquisition ‘TrackLocation = rsLAWSdata ! TargetLocation 
rsAcquisition ! TrackAltitude = rsLAWSdata ‘Altitude 
rsAcquisition ‘Remark = rsLAWSdata i ThreatDescript ion 



rsAcquisition I AcqSensorType = rsLAWSdata ! AcqSensor 
If rsLAWSdata! AcqSensor = Null Then 

rsAcquisition ‘AcqSensorType = "None" 

Else 

rsAcquisition ‘AcqSensorType = rsLAWSdata ‘AcqSensor 
End If 

If rsLAWSdata ‘AcqTime <> Null Or rsLAWSdata !AcqTime <> " " Then 
rsAcquisition ! AcqTime = rsLAWSdata ‘AcqTime 
End If 

rsAcquisition . Update 



End Sub 

Private Sub AddFire ( ) 
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rsFireCommand . MoveLas t 



If rsLAWSdata IRoundsFired <> " " And rsLAWSdata 1 RoundsFired > 0 Then 
rsFire . AddNew 

If rsFire 1 FireCounter < 10 Then 

rsFirelFire = "FE0000" & rsFire 1 FireCounter 

Else 

If rsFire ! FireCounter < 100 Then 

rsFirelFire = "FE000 M & rsFire 1 FireCounter 

Else 

If rsFire 'FireCounter < 1000 Then 

rsFirelFire = "FE00" & rsFire 1 FireCounter 

Else 

If rsFire I FireCounter < 10000 Then 

rsFirelFire = " FE0 " & rsFire 1 FireCounter 

Else 

rsFirelFire = "FE" & rsFire 1 FireCounter 

End If 
End If 
End If 
End If 

rsFire I FireCommand = rsFireCommand 1 FireCommand 
rsFire IRoundsFired = rsLAWSdata IRoundsFired 
rsFire IFireTime = rsLAWSdata 1 FireEventTime 

rsFire .Update 

Addlmpact 

End If 

End Sub 

Private Sub AddFireCommand( ) 

Dim bPFound As Boolean 
rsTarget .MoveLast 
r s F i r e C ommand . AddN e w 
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If rsFireCommand! FireCommandCounter < 10 Then 



rsFireCommand! FireCommand = "FC0000" & 
rsFireCommand ! FireCommandCounter 

Else 

If rsFireCommand! FireCommandCounter < 100 Then 

rsFireCommand ! FireCommand = "FCOOO" & 
rsFireCommand ! FireCommandCounter 

Else 

If rsFireCommand! FireCommandCounter < 1000 Then 

rsFireCommand! FireCommand = " FC00" Sc 
rsFireCommand ! FireCommandCounter 

Else 

If rsFireCommand! FireCommandCounter < 10000 Then 

rsFireCommand! FireCommand = "FC0" & 
rsFireCommand ! FireCommandCounter 

Else 

rsFireCommand! FireCommand = "FC" Sc 
rsFireCommand I FireCommandCounter 

End If 
End If 
End If 
End If 

rsFireCommand! Nomination = rsTarget 'Nomination 
rsFireCommand !OCCCId = rsLAWSdata ! TargetControl 
rsFireCommand! Targetld = rsTarget ! Target Id 

stSearch = rsLAWSdata ! FirerPlatf orm 

rsPlat f orm.MoveFirst 

Do Until rsPlatf orm. EOF Or bPFound = True 

If rsPlatf ormILAWSFormat = stSearch Then 

bPFound = True 

rsFireCommand ! FirerPlatf orm = rsPlatf orm ! Platform 



Else 

rsPlatf orm . MoveNext 
End If 



Loop 

If bPFound = False Then 

rsFireCommand ‘FirerPlatf orm = rsLAWSdata ‘ FirerPlatf orm Sc H -TAC n 
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End If 



If rsLAWSaata ! RoundsFired > 0 Then 
rsFireCommand! Engage = True 
End If 

rsFireCommand . Update 
End Sub 

Private Sub Addlmpact ( ) 
rsFire . MoveLast 
r s Impac t . AddNew 

If rslmpact I ImpactCounter < 10 Then 

rslmpact ! Impact = " IE0000" & rslmpact ! ImpactCounter 

Else 

If rslmpact ! ImpactCounter < 100 Then 

rslmpact ! Impact = "IE000" & rslmpact i ImpactCounter 

Else 

If rslmpact ! ImpactCounter < 100 0 Then 

rslmpact I Impact = *' IE00" & rslmpact ! ImpactCounter 

Else 

If rslmpact I ImpactCounter < 10000 Then 

rslmpact I Impact = "IEO" & rslmpact ! ImpactCounter 

Else 

rslmpact ! Impact = "IE" & rslmpact ! ImpactCounter 

End If 
End If 
End If 
End If 

rslmpact ! FireEvent = rsFire IFire 

rslmpact I ImpactTime = rsLAWSdata ! ImpactTime 

rslmpact .Update 
End Sub 
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Private Sub AddMensuration ( ) 



rsAcqui si t ion . MoveLas t 
rsMensuration . AddNew 

If rsMensuration IMensurationCounter < 10 Then 

rsMensuration 'Mensuration = "ME0000" & 
rsMensuration IMensurationCounter 

Else 

If rsMensuration IMensurationCounter < 100 Then 

rsMensuration 'Mensuration = "ME000" & 
rsMensuration IMensurationCounter 

Else 

If rsMensuration IMensurationCounter < 1000 Then 

rsMensuration 1 Mensuration = "ME00" & 
rsMensura t i on I Mensurat i onCoun t er 

Else 

If rsMensuration IMensurationCounter < 10000 Then 

rsMensuration ! Mensuration = "ME0" Sc 
rsMensuration IMensurationCounter 

Else 

rsMensuration I Mensuration = “ME" Sc 
rsMensuration IMensurationCounter 

End If 
End If 
End If 
End If 

rsMensuration I Acquisition = rsAcquisit ion I Acquisition 
' rsMensuration I MenSensorType = ? 

' rsMensuration IMenPlatform = ? 

stSearch = rsLAWSdat a I Nominator 

rsGISRS .MoveFirst 
r sLAWS . MoveFirst 
bGFound = False 
bLFound = False 

'checks GISRS table 

Do Until rsGISRS. EOF Or bGFound = True 

If rsGISRS I GISRSTerminal = stSearch Then 

bGFound = True 
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rsMensuration ! GISRSTerminal = rsGISRS ! GISRSTerminal 



Else 

rsGISRS -MoveNext 
End If 

Loop 

'checks LAWS table if search not successful in GISRS table 
If bGFound = False Then 

Do Until rsLAWS. EOF Or bLFound = True 

If rsLAWS I LAWSTerminal = st Search Then 

bLFound = True 

rsMensuration ! GISRSTerminal = rsLAWS I LAWSTerminal 



Else 

rsLAWS . MoveNext 



End If 

Loop 
End If 



rsMensuration . Update 



End Sub 

Private Sub AddNomination ( ) 
rsMensuration . MoveLast 
rsNominat ion . AddNew 

If rsNominat ion ! Nomina tionCoun ter < 10 Then 

rsNomi nati on ! Nomination = "NKOOOO” Sc 
rsNominat ion INominationCounter 

Else 

If rsNominat ion INominationCounter < 100 Then 

rsNomination! Nomination = "NE000" Sc 
rsNomination INominationCounter 

Else 

If rsNomination INominationCounter < 1000 Then 

rsNomination I Nomination = "NE00" Sc 
rsNomination INominationCounter 

Else 

If rsNomination INominationCounter < 10000 Then 
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NEO" Sc 



rsNomination! Nomination = 
rsNomination I NominationCounter 

Else 

rsNomination! Nomination = "NE" Sc 
rsNomination ! NominationCounter 

End If 
End If 
End If 
End If 

rsNomination ! Acquisition = rsMensurat ion ! Acquisition 
rsNomination 'Mensuration = rsMensurat ion ! Mensuration 

st Search = rsLAWSdata 'Nominator 

rsGISRS . MoveFirst 
rsLAWS .MoveFirst 

bGFound = False 
bLFound = False 

' checks GISRS table 

Do Until rsGISRS. EOF Or bGFound = True 

If rsGISRS IGISRSTerminal = stSearch Then 

bGFound = True 

rsNomination ! GISRSTerminal = rsGISRS ! GISRSTerminal 



Else 

rsGISRS .MoveNext 
End If 

Loop 

'checks LAWS table if search not successful in GISRS table 
If bGFound = False Then 

Do Until rsLAWS. EOF Or bLFound = True 

If rsLAWS ! LAWSTerminal = stSearch Then 

bLFound = True 

rsNomination IGISRSTerminal = rsLAWS 'LAWSTerminal 



Else 

rsLAWS .MoveNext 



End If 

Loop 
End If 

rsNomination ITargetLocationError = rsLAWSdata !TLE 
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rsNominat ion . Update 



End Sub 

Private Sub AddTarget ( ) 

On Error GoTo HandleTargetError 
r sNomina t i on . MoveLas t 
rsTarget .AddNew 

rsTarget ! Targetld = rsLAWSdata l Targetld 

rsTarget ! Targe tNLTTime = rsLAWSdata ! NLTTime 

rsTarget IWeaponType = rsLAWSdata IWeaponType 

rsTarget 1 Targe tLocation = rsLAWSdata ! Targe tLocation2 

rsTarget ! Description = rsLAWSdata ! Target Type 

rsTarget I Remark = rsLAWSdata ! Remark 

rsTarget ! Nomination = rsNominat ion ! Nomination 

rsTarget . Update 

AddTarget_Exit : 

Exit Sub 

HandleTargetError : 

Select Case Err. Number 
Case 3022 

stMessage = "Targetld repeated. Target " & 
rsLAWSdata J Targetld _ 

& vbCrLf & " not saved as new record." 



MsgBox stMessage, vbOKOnly + vblnf ormation 
rsTarget . CancelUpdate 



End Select 
Resume 



End Sub 



Private Sub mnuDataSort_Click ( ) 



Dim rsSorted 
Dim stPrevThreat 
Dim stPrevTrack 
Dim stPrevNominator 
Dim stNowThreat 
Dim stNowTrack 
Dim stNowNominator 
Dim stNextThreat 
Dim stNextTrack 
Dim stNextNominator 
Dim stSQLl 



As Recordset 



As String 
As String 
As String 
As String 
As String 
As String 
As String 
As String 
As String 
As String 
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Dim stSQL2 



As String 



stSQLl = "Select * from LAWSSorted" 

Set rsSorted = db . OpenRecordset ( s tSQLl ) 

With rsSorted 

Do Until .EOF 

stNowThreat = ! ThreatDescription 

If ITrackld <> " " Or ITrackld <> Null Then 
stNowTrack = ITrackld 

Else 

stNowTrack = n " 

End If 

If INominator <> " " Or ‘Nominator <> Null Then 
stNowNominator = INominator 

Else 

stNowNominator = " " 

End If 

If stNowTrack = " " Or stNowNominator = " " Then 
. MovePrevious 
If Not .BOF Then 

stPrevThreat = I ThreatDescription 
stPrevTrack = ITrackld 
stPrevNominator = INominator 

If stPrevThreat = stNowThreat Then 
.MoveNext 
.Edit 

ITrackld = stPrevTrack 
INominator = stPrevNominator 
.Update 



Else 

.MoveNext 

.MoveNext 

stNextThreat = I ThreatDescription 
stNextTrack = ITrackld 
stNextNominator = INominator 
If stNextThreat = stNowThreat Then 
. MovePrevious 
. Edit 

ITrackld = stNextTrack 
INominator = stNextNominator 
.Update 

End If 
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End If 



Else 

.MoveNext 
. MoveNext 

stNextThreat = ! ThreatDescription 
stNextTrack = ITrackld 
stNextNominator = ! Nominator 
. MovePrevious 

If stNextThreat = stNowThreat Then 
.Edit 

ITrackld = stNextTrack 
I Nominator = stNextNominator 
. Update 
End If 



End If 
End If 

.MoveNext 



Loop 
End With 



End Sub 



Private Sub mnuDataTransfer_Click ( ) 
Dim rsLAWSInfo As Recordset 
Dim rsSorted As Recordset 
Dim stLAWSInfo As String 
Dim stSorted As String 
Dim stTLE As String 



stLAWSInfo = "Select * from LAWS" 
stSorted = "Select * from LAWSSorted" 



Set rsLAWSInfo = db . OpenRecordset ( stLAWSInfo) 

Set rsSorted = db . OpenRecordset ( stSorted) 

With rsLAWSInfo 

Do Until .EOF 

rsSorted . AddNew 

rsSorted I Targetld = ITargetld 

rsSorted ! ThreatDescription = ! ThreatDescription 
rsSorted ! TargetLocation = ! TargetLocat ion 
rsSorted INLTTime = INLTTime 
rsSorted ’Altitude = ! Altitude 
rsSorted I WeaponType = IWeaponType 
rsSorted! PlatLocation = ! PlatLocation 
rsSorted I ThreatType = IThreatType 
If ! Remar kl <> " " Then 

stTLE = Left (rsLAWSInfo ! Remarkl , 2) 
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End If 



If stTLE = "CE" Then 

rsSorted ! TLE = IRemarkl 

Else 

rsSorted ‘Remark = IRemarkl 
End If 



rsSorted 

rsSorted 

rsSorted 

rsSorted 

rsSorted 

rsSorted 

rsSorted 

rsSorted 

rsSorted 

rsSorted 



AcqTime = ‘AcqTime 
AcqSensor = ‘AcqSensor 
TargetLocation2 = ! TargetLocat ion2 
Targe tType = ITargetType 
RoundsFired = IRoundsFired 
FirerPlatf orm = ! FirerPlatf orm 
TargetControl = ! TargetControl 
Priority = ! Priority 
ImpactTime = i Impact Time 
Nominator = INominator 



If !Remark2 <> Then 

stTLE = Left (rsLAWSInf o ! Remark2 , 2) 
End If 



If stTLE = "SH" Then 

rsSorted ! Remark = ‘Remark2 

Else 

rsSorted ITrackld = !Remark2 



End If 

rsSorted ! FireEventTime = ! FireEventTime 

rsSorted . Update 
rsLAWSInf o .MoveNext 



Loop 
End With 



End Sub 

Private Sub mnuFileExit_Click.( ) 

'terminates application 
End 

End Sub 

Private Sub mnuFileOpen_Click { ) 

'Select a different database (FBE) 

On Error GoTo HandleError 
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With f rmMain . dlgDatabase 

.FileName = gstNewDatabase 

.Filter = "Database files ( * .mdb) | * .mdb | All files (*.*)|*.*“ 

'if error encountered, skip next command 
On Error Resume Next 
. ShowOpen 

If Err. Number = cdlCancel Then 
gstNewDatabase = " " 

Else 



'set return filename to selected file 
gstNewDatabase = .FileName 

f rmMain . Caption = . FileTitle & " Database" 

End If 
End With 

Set db = OpenDatabase (gstNewDatabase) 

'display Main form 
f rmMain. Show 

Sub_Exit : 

Exit Sub 

HandleError : 

Select Case Err. Number 

Case 3004, 3024, 3044 

If gstNewDatabase = " " Then 

MsgBox "No database was selected.", vbExclamation, 

“Database Error" 



selected 



'disables options only available when a database is 

Me .mnuFileQueries . Enabled = False 
Me .mnuFileSQL. Enabled = False 
Me .mnuUpdate . Enabled - False 



location 



Else 

Set db = OpenDatabase (gstNewDatabase) 'new database 



'reenables options once a database is selected 
Me .mnuFileQueries . Enabled = True 
Me .mnuFileSQL . Enabled = True 
Me .mnuUpdate . Enabled = True 

Resume 'open the database 

End If 

Case Else 
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MsgBox Err .Description, vbOKOnly + vbExclamation , 
"Unexpected Error" 

End 'exit the project 

End Select 

End Sub 

Private Sub mnuFileQueries_Click ( ) 
f rmQueries . Show 
Me. Enabled = False 



End Sub 

Private Sub mnuFileSQL_Click ( ) 

frmSQL. Show 

Me. Enabled = False 



End Sub 



Private Sub mnuHelpAbout_Click ( ) 
f rmAbout . Show 
End Sub 



Private Sub mnuPopulate_Click ( ) 



stSQLl = 
stSQL2 = 
stSQL3 = 
stSQL4 = 
stSQLS = 
stSQL6 = 
StSQL7 = 
stSQL8 = 
stSQL9 = 
stSQLlO = 
stSQLll = 
stSQL12 = 
stSQL13 = 
stSQL14 = 



"Select * from Acquisition" 
"Select * from Fire" 

"Select * from FireCommand" 
"Select * from Impact" 

"Select * from Mensuration" 
"Select * from Nomination” 
"Select * from Target" 

"Select * from LawsSorted2" 
"Select * from GISRSTerminal " 
"Select * from LAWSTerminal " 
"Select * from Platform" 
"Select * from SensorType" 
"Select * from ThreatType" 
"Select * from WeaponType" 



Set rsAcquisition = db. OpenRecordset ( stSQLl) 
Set rsFire = db . OpenRecordset ( stSQL2 ) 

Set rsFireCommand = db. OpenRecordset ( stSQL3 ) 
Set rslmpact = db . OpenRecordset ( stSQL4) 

Set rsMensurat ion = db. OpenRecordset ( stSQLS ) 
Set rsNomination = db . OpenRecordset ( stSQL6 ) 
Set rsTarget = db . OpenRecordset ( stSQL7 ) 

Set rsLAWSdata = db . OpenRecordset ( stSQL8 ) 

Set rsGISRS = db . OpenRecordset ( stSQL9 ) 

Set rsLAWS = db. OpenRecordset ( stSQLl 0 ) 
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Set rsPlatform = db. OpenRecordset ( stSQLll ) 
Set rsSensor = db. OpenRecordset (stSQL12 ) 
Set rsThreat = db. OpenRecordset ( stSQL13 ) 
Set rsWeapon = db. OpenRecordset (stSQLl4 ) 



If rsLAWSdata .RecordCount > 0 Then 

Do Until rsLAWSdata . EOF 'fix to .EOF 

If rsAcquisit ion. RecordCount = 0 Then 

AddAcquisition 
AddMensurat ion 
AddNomination 
AddTarget 
AddF i reCommand 
AddFire 

rsLAWSdata . MoveNext 



Else 



rsAcquisition.MoveLast 

If rsAcquisit ion ’Trackld <> rsLAWSdata ITrackld Then 

AddAcquisition 
AddMensurat ion 
AddNomina t i on 
AddTarget 
AddF i r eC ommand 
AddFire 

rsLAWSdata . MoveNext 



Else 



AddTarget 
AddF i r eC ommand 
AddFire 

rsLAWSdata .MoveNext 
End If 
End If 



Loop 



Else 



stMessage 



vbCrLf 



"No data to import from table: LawsSorted " & 
in database: " & 



Me . dlgDatabase . FileTitle 

MsgBox stMessage, vbOKOnly + vbExclamation, "Data Population" 
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End If 



End Sub 

Private Sub mnuUpdateAcquisition_Click ( ) 

f rmAcqEvents . Show 
Me. Enabled = False 

End Sub 

Private Sub rnnuUpdateAcronyms_Click ( ) 

f rmAcronyms . Show 
Me. Enabled = False 

End Sub 

Private Sub mnuUpdateDataTypes_Click ( } 

f rmDataTypes . Show 
Me. Enabled = False 

End Sub 

Private Sub mnuUpdateFBE_Click ( ) 

frmFBE . Show 

Me. Enabled = False 

End Sub 

Private Sub xnnuUpdateFire_Click ( ) 

f rmFireEvent . Show 
Me. Enabled = False 

End Sub 

Private Sub mnuUpdateFireCommand_Click ( } 

f rmFireCmdEvent . Show 
Me. Enabled = False 

End Sub 

Private Sub mnuUpdateGISRS_Click ( ) 

fmGISRS . Show 
Me. Enabled = False 

End Sub 
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Private Sub imuUpdateImpact_Click ( ) 

f rmlmpact Event . Show 
Me. Enabled = False 

End Sub 

Private Sub mnuUpdateInitiatives_Click ( ) 

f rmlnitiatives . Show 
Me. Enabled = False 

End Sub 

Private Sub imuUpdateLAWS_Click ( ) 

f rmLAWS . Show 

Me. Enabled = False 

End Sub 

Private Sub imuUpdateMensuration_Click ( ) 

frroMenEvents . Show 
Me. Enabled = False 

End Sub 

Private Sub mnuUpdateNomination_Click ( ) 

f rmNomEvents . Show 
Me. Enabled = False 

End Sub 

Private Sub mnuUpdateObjectives_Click( ) 

f rmOb j e c t i ve s . Show 
Me. Enabled = False 

End Sub 

Private Sub mnuUpdatePlatforms_Click ( ) 

f rmPlatf orms . Show 
Me. Enabled = False 

End Sub 

Private Sub imuUpdatePlatTypes_Click( ) 

frmPlatf ormTypes . Show 
Me. Enabled = False 

End Sub 
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Private Sub mnuUpdateQuestions_Click ( ) 
f rmQuestions . Show 



Me. Enabled = 


= False 


End Sub 





Private Sub mnuUpdateSensTypes_Click ( ) 
f rmSensorTypes . Show 



Me. Enabled = 


= False 


End Sub 





Private Sub mnuUpdateTargets_Click ( ) 
f rmTar get Events . Show 



Me. Enabled = 


= False 


End Sub 





Private Sub mnuUpdateThreatTypes_Click ( ) 
frmThr eat Types . Show 



Me. Enabled = 


= False 


End Sub 





Private Sub mnuUpdateWeaponTypes_Click ( ) 
f rmWeaponTypes . Show 



Me. Enabled = 


= False 


End Sub 





Private Sub mnuViewTargets_Click ( ) 
f rmTargets2 . Show 



Me. Enabled = 


= False 


End Sub 





/★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★•it-*- 

'Module: frmMenEvents . frm 

'Description: Allows user to access the mensuration event 



/ 


records for addition, deletion, and 


/ 


modification. 


' Programmer : 


Kevin Colon 



• ★★★*★★*★*★★★★*★★*★★★★★★★★★**★★*★★★*★★★*★★★★**★****★**★★*★★**★ 
Option Explicit 
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Dim rsAcquisition 
Dim rsSensor 
Dim rsPlatform 
Dim rsGISRS 
Dim rsPTW 
Dim stSQLl 
Dim stSQL2 
Dim stSQL3 
Dim stSQL4 
Dim stSQLS 
Private WordApp 
Private Doc 
Private Sel 



As Recordset 
As Recordset 
As Recordset 
As Recordset 
As Recordset 
As String 
As String 
As String 
As String 
As String 

As Word. Application 
As Word. Document 
As Word. Selection 



Private Sub cboAcquisition_Click ( ) 

If cboAcquisition .Listlndex >= 0 Then 

txtAcquisition = cboAcquisition . Text 
End If 

End Sub 

Private Sub cboGISRS_Click ( ) 

If . cboGISRS .Listlndex >= 0 Then 
txtGISRS = cboGISRS. Text 
End If 

End Sub 

Private Sub cboPlatf orm_Click ( ) 

If cboPlatf orm. Listlndex >= 0 Then 
txtPlatform = cboPlatf orm. Text 
End If 

End Sub 

Private Sub cboPTW_Click ( ) 

If cboPTW. Listlndex >= 0 Then 
txtPTW = cboPTW. Text 
End If 

End Sub 

Private Sub cboSensor.. Click ( ) 

If cboSensor .Listlndex >= 0 Then 
txtSensor = cboSensor .Text 
End If 

End Sub 
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Private Sub cmdAdd__Click ( ) 



On Error GoTo HandleAddErrors 

If cmdAdd. Caption = "&Add Event" Then 

datMenEvents .Recordset .AddNew 
cboAcquisition. Enabled = True 
cboPlatform. Enabled = True 
cboSensor . Enabled = True 
cboGISRS . Enabled = True 
cboPTW . Enabled = True 
cboAcquisition. Listlndex = -1 
cboPlatform. Listlndex = -1 
cboSensor . Listlndex = -1 
cboGISRS . Listlndex = -1 
cboPTW. Listlndex = -1 
txtTimeRqst Sent .Enabled = True 
txtTimeRqstRcvd. Enabled = True 
txtTimelnf oSent .Enabled = True 
txtTimelnf oRcvd. Enabled = True 
cmdUpdate . Enabled = False 
cmdSave . Enabled = True 
cmdDel . Enabled = False 
cmdAdd. Caption = "kCancel" 
mnuFile . Enabled = False 
datMenEvents . Enabled = False 



Else 



datMenEvents . Recordset . CancelUpdate 
cboAcquisition . Enabled = False 
cboPlatform. Enabled = False 
cboSensor .Enabled = False 
cboGISRS . Enabled = False 
cboPTW. Enabled = False 
txtTimeRqstSent .Enabled = False 
txtTimeRqstRcvd. Enabled = False 
txtTimelnf oSent .Enabled = False 
txtTimelnf oRcvd. Enabled = False 
cmdUpdate . Enabled = True 
cmdSave . Enabled = False 
cmdDel . Enabled = True 
cmdAdd. Caption = " &Add Event" 
mnuFile .Enabled = True 
datMenEvents . Enabled = True 
cmdAdd . SetFocus 

End If 

cmdAdd__Click_Exi t : 

Exit Sub 

HandleAddErrors : 

Dim stMess As String 
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Sc vbCrLf Sc vbCrLf Sc 



stMess = "Cannot complete operation. 

Err . Description 

MsgBox stMess, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 

End Sub 

Private Sub cmdDel__Click ( ) 

Dim iResp As Integer 

On Error GoTo HandleDelErrors 

If datMenEvents . Recordset . RecordCount > 0 Then 

iResp = MsgBox ( "Delete Event " Sc txtMensuration Sc " ?", 

"Delete Event”) 

If iResp = vbYes Then 

With datMenEvents . Recordset 
.Delete 
.MoveNext 
If .EOF Then 

. MovePrevi ous 
If .BOF Then 

MsgBox "The recordset is empty.", 
vblnf ormation, "No Records" 

End If 
End If 
End With 
End If 

Else 

MsgBox "No records to delete.", vbExclamation, "Delete 
End If 

cmdDel_Click_Event : 

Exit Sub 

HandleDelErrors : 

Dim stMess As String 

stMess = "Cannot complete operation." & vbCrLf & vbCrLf Sc 
Err . Description 

MsgBox stMess, vbExclamation, "Database Error" 

On Error GoTo 0 

End Sub 

Private Sub cmdSave_Click ( ) 

'save current record 

On Error GoTo HandleSaveErrors 

If cboAcquisi tion .Listlndex >= 0 And cboGISRS . Listlndex >= 
If Val { txtCounter) < 10 Then 

txtMensuration. Text = "ME0000” Sc txtCounter .Text 



vbYesNo, 



Event " 



0 Then 
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Else 



If Val { txt Counter) < 100 Then 

txtMensurat ion. Text = "ME000" & txtCounter . Text 

Else 

If Val (txtCounter) < 1000 Then 

txt Mensuration. Text = "ME00" & txtCounter . Text 

Else 

If Val (txtCounter ) < 10000 Then 

txtMensurat ion. Text = "ME0" Sc txtCounter . Text 

Else 

txtMensurat ion. Text = "ME" Sc txtCounter . Text 
End If 
End If 
End If 
End If 

datMenEvents . Recordset . Update 

Else 

MsgBox "You must select an Acquisition Event and a GISRS 
Terminal before saving." _ 

, vbExclamation, "Add Mensuration Event" 
datMenEvents .Recordset .CancelUpdate 
End If 

cboAcquisition. Enabled = False 
cboPlatform. Enabled = False 
cboSensor . Enabled = False 
cboGISRS. Enabled = False 
cboPTW. Enabled = False 
txtTimeRqstSent .Enabled = False 
txtTimeRqstRcvd. Enabled = False 
txtTimelnf oSent .Enabled = False 
txtTimelnf oRcvd. Enabled = False 
cmdUpdate . Enabled = True 
cmdSave . Enabled = Fal se 
cmdDel .Enabled = True 
cmdAdd. Caption = "ScAdd Event" 
mnuFile. Enabled = True 
datMenEvents. Enabled = True 
cmdAdd. Set Focus 



datMenEvents. Enabled = True 

cmdSave_Click_Exit : 

Exit Sub 

HandleSaveErrors : 

Dim stMess As String 
Select Case Err. Number 

Case 3022 'duplicate key field 

stMess = "Record already exists — could not save> ' 
MsgBox stMess, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 
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Case 3058, 3315 'no entry in key field 

stMess = "Select Acquisition Event and GISRS Terminal 
before saving." 

MsgBox stMess, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 

Case Else 

stMess = "Record could not be saved." & vbCrLf _ 

& Err .Description 

MsgBox stMess, vbExclamation, "Database Error" 
datMenEvents .Recordset .CancelUpdate 
Resume Next 
End Select 



End Sub 

Private Sub cmdUpdate_Click ( ) 

If cmdUpdate. Caption = "&Update n And _ 

da tMenEvents. Recordset .RecordCount > 0 Then 

cmdUpdate . Caption = " Su&bmit " 
cboAcquisit ion. Enabled = True 
cboPlat form. Enabled = True 
cboSensor. Enabled = True 
cboGISRS. Enabled = True 
cboPTW. Enabled = True 
txtTimeRqstSent . Enabled = True 
txtTimeRqstRcvd. Enabled = True 
txtTimelnf oSent .Enabled = True 
txtTimelnf oRcvd. Enabled = True 
cmdAdd. Enabled = False 
cmdSave. Enabled = False 
cmdDel . Enabled = False 
mnuFile. Enabled = False 
datMenEvents . Enabled = False 
datMenEvents . Recordset . Edit 



Else 

If datMenEvents . Recordset .RecordCount > 0 Then 
datMenEvents .Recordset .Update 

cboAcquisition . Enabled = False 
cboPlatf orm. Enabled = False 
cboSensor . Enabled = False 
cboGISRS. Enabled = False 
cboPTW. Enabled = False 
txtTimeRqstSent . Enabled = False 
txtTimeRqstRcvd. Enabled = False 
txtTimelnf oSent . Enabled = False 
txtTimelnf oRcvd. Enabled = False 
cmdDel .Enabled = True 
cmdAdd. Enabled = True 
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cmdAdd . SetFocus 
cmdUpdate. Caption = "&Update" 
mnuFile . Enabled = True 
datMenEvents . Enabled = True 



End If 
End If 

End Sub 

Private Sub datMenEvents_Reposition ( ) 
SetMenEventsRecordNumber 



End Sub 

Private Sub Form__ Load() 

datMenEvents . DatabaseName = gstNewDatabase 

stSQLl = "Select Acquisition from Acquisition" 
stSQL2 = "Select SensorType from SensorType" 
stSQL3 = "Select Platform from Platform" 
stSQL4 = "Select GISRSTerminal from GISRSTerminal " 
stSQL5 = "Select PTWTerminal from PTWTerminal" 



Set rsAcquisition = db . OpenRecordset ( stSQLl) 

Set rsSensor = db. OpenRecordset ( stSQL2 ) 

Set rsPlatform = db . OpenRecordset ( stSQL3 ) 

Set rsGISRS = db . OpenRecordset ( stSQL4 ) 

Set rsPTW = db . OpenRecordset ( stSQLS ) 

'fill cboAcquisition 
Do Until rsAcquisition. EOF 

cboAcquisition .AddI tern rsAcquisition ’Acquisition 
rsAcquisition .MoveNext 

Loop 

'fill cboSensor 
Do Until rsSensor. EOF 

cboSensor .AddI tern rsSensor! SensorType 
rsSensor . MoveNext 

Loop 

'fill cboPlatform 
Do Until rsPlatform. EOF 

cboPlatform. Addltem rsPlatform! Platform 
rsPlatform. MoveNext 

Loop 



'fill cboGISRS 
Do Until rsGISRS. EOF 
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cboGISRS . Addltem rsGISRS ! GISRSTerminal 
rsGISRS .MoveNext 

Loop 

'fill cboPTW 
Do Until rsPTW. EOF 

cboPTW. Addltem rsPTW! PTWTerminal 
rsPTW . MoveNext 

Loop 

With datMenEvents 
. Refresh 

If Not .Recordset . EOF Then 
. Recordset . MoveLast 
. Recordset .MoveFirst 
End If 
End With 

SetMenEventsRecordNumber 



End Sub 

Private Sub SetMenEventsRecordNumber ( ) 

Dim iRecordCount As Integer 
Dim iCurrentRecord As Integer 

iRecordCount = datMenEvents . Recordset . RecordCount 
iCurrentRecord = datMenEvents . Recordset . AbsolutePosition + 1 



If datMenEvents . Recordset . EOF Then 

datMenEvents . Caption = "No more records" 

Else 



datMenEvents .Caption 
iCurrentRecord & _ 



"Mensuration Event Record 
" of " & iRecordCount 



End If 



& 



End Sub 

Private Sub Form_Unload {Cancel As Integer) 

frmMain. Enabled = True 
Unload Me 



End Sub 

Private Sub mnuFileBack_Click ( ) 

frmMain. Enabled = True 
Unload Me 



End Sub 
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Private Sub mnuFilePrint_Click ( ) 
frmPrint . Show 

On Error GoTo mnuPrintErrors 

If bContinue = True Then 

With da tMenEvents .Recordset 

If bWord = True Then 

Set WordApp = New Word. Application 
WordApp . Documents .Add 
Set Doc = WordApp .Act iveDocument 
Set Sel = WordApp . Selection 

Doc . Tables .Add Range : =Sel . Range, NumRows : = . RecordCount , 

NumColumns : =10 



Sel.TypeText Text := "Mensuration" 
Sel .MoveRight unit: =12 


' 12=next 


cell 


Sel.TypeText Text := "Request Sent" 
Sel .MoveRight unit: =12 


' 12=next 


cell 


Sel.TypeText Text := "Request Rcvd" 
Sel .MoveRight unit: =12 


' 12=next 


cell 


Sel.TypeText Text:="Info Sent" 
Sel .MoveRight unit: =12 


' 12=next 


cell 


Sel.TypeText Text := "Info Received" 
Sel .MoveRight unit: =12 


' 12=next 


cell 


Sel.TypeText Text := "Acquisition" 
Sel .MoveRight unit: =12 


' 12=next 


cell 


Sel.TypeText Text *. = " Sensor Type" 
Sel .MoveRight unit : =12 


' 12=next 


cell 


Sel .TypeText Text :=" Platform" 
Sel .MoveRight unit: =12 


' 12=next 


cell 


Sel.TypeText Text : ="GISRS" 
Sel .MoveRight unit: =12 


' 12=next 


cell 


Sel . TypeText Text : = " PTW" 
Sel .MoveRight unit : =12 


' 12=next 


cell 



Do Until .EOF 

Sel.TypeText Text := ‘Mensuration 
Sel .MoveRight unit : =12 
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' 12=next 



cell 

Sel.TypeText Text := ITimeRequest Sent 

Sel .MoveRight unit: =12 '12=next 

cell 

Sel . TypeText Text : = ! TimeRequestReceived 

Sel .MoveRight unit: =12 ' 12=next 

cell 

Sel.TypeText Text : = ITimelnf oSent 

Sel .MoveRight unit: =12 '12=next 

cell 

Sel . TypeText Text : = ITimelnf oReceived 

Sel .MoveRight unit: =12 ' 12=next 

cell 

Sel .TypeText Text : = I Acquisition 

Sel .MoveRight unit: =12 '12=next 

cell 

Sel . TypeText Text : = I Men Sens or Type 

Sel .MoveRight unit: =12 ' 12=next 

cell 

Sel . TypeText Text : = IMenPlatf orm 

Sel .MoveRight unit: =12 '12=next 

cell 

Sel.TypeText Text : = IGISRSTerminal 

Sel .MoveRight unit: =12 '12=next 

cell 

Sel.TypeText Text : = 1 PTWTerminal 

Sel .MoveRight unit: =12 '12=next 

cell 



.MoveNext 



Loop 

WordApp. Visible = True 
Set WordApp = Nothing 



Else 

If bText = True Then 

Open App.Path & "\MenEvents.txt" For Output As #1 

Print #1, "Mensuration"; Chr(9); "Request Sent"; 
Chr(9); "Request Rcvd" ; Chr{9); _ 

"Info Sent"; Chr(9); "Info Rcvd"; 
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Chr (9) ; _ 
Chr (9) ; 



"Acquisition"; Chr ( 9 ) ; "Sensor Type 

"Platform"; Chr (9); "GISRS"; Chr (9) 
"PTW"; Chr (9) 



Do Until .EOF 

Print #1, IMensuration; Chr(9); _ 

! TimeRequestSent ; Chr ( 9 ) ; _ 

! TimeReques tReceived ; Chr ( 9 ) ; 
ITimelnfoSent ; Chr (9); __ 
ITimelnfoReceived; Chr(9); _ 

! AcqSensorType; Chr (9) ; _ 

! Acquisition; Chr(9); _ 
IMenSensorType; Chr (9) ; _ 
IMenPlatf orm; Chr(9); _ 

! GISRSTerminal ; Chr(9); _ 

! PTWTerminal ; Chr ( 9 ) 



.MoveNext 

Loop 

Close #1 

End If 
End If 

.MoveFirst 

End With 

End If 

bContinue = False 
bWord = False 
bText = False 



mnuPrintErrors : 

Select Case Err. Number 
Case 94 

Sel.TypeText Text:=" " 
Resume Next 
End Select 



End Sub 

Private Sub txtAcquisition_Change ( ) 

'selects correct combo box listing 
Dim i Index As Integer 

Dim bFound As Boolean 

rsAcquisition . MoveFirst 

162 



If txtAcquisition <> " " Then 

Do Until ilndex = rsAcquisition. RecordCount Or bFound 
If rsAcquisition ‘Acquisition = txtAcquisition Then 
cboAcquisition. Text = rsAcquisition! Acquisition 
bFound = True 

Else 

rsAcquisition . MoveNext 
ilndex = ilndex + 1 
End If 



Loop 
End If 

End Sub 

Private Sub txtGISRS_Change ( ) 

'selects correct combo box listing 
Dim ilndex As Integer 

Dim bFound As Boolean 

rsGISRS .MoveFirst 
If txtGISRS <> "" Then 

Do Until ilndex = rsGISRS . RecordCount Or bFound 
If rsGISRS IGISRSTerminal = txtGISRS Then 
cboGISRS . Text = rsGISRS l.GISRSTerminal 
bFound = True 

Else 

rsGISRS . MoveNext 
ilndex = ilndex + 1 
End If 



Loop 
End If 

End Sub 

Private Sub txtPlatf orm_Change { ) 

'selects correct combo box listing 
Dim ilndex As Integer 

Dim bFound As Boolean 

rsPlatf orm. MoveFirst 
If txtPlatf orm <> n " Then 

Do Until ilndex = rsPlatf orm. RecordCount Or bFound 
If rsPlatf orm! Platform = txtPlatf orm Then 
cboPlatf orm. Text = rsPlatf orm! Platform 
bFound = True 

Else 

rsPlatf orm. MoveNext 
ilndex = ilndex + 1 
End If 



Loop 
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End If 



End Sub 

Private Sub txtPTW_Change ( ) 

'selects correct combo box listing 
Dim i Index As Integer 

Dim bFound As Boolean 

rsPTW . MoveFirst 
If txtPTW <> ■" Then 

Do Until ilndex = rsPTW. RecordCount Or bFound 
If rsPTW! PTWTerminal - txtPTW Then 
cboPTW. Text = rsPTW! PTWTerminal 
bFound = True 

Else 

rsPTW . MoveNext 
ilndex = ilndex + 1 
End If 



Loop 
End If 

End Sub 

Private Sub txtSensor_Change ( ) 

'selects correct combo box listing 
Dim ilndex As Integer 

Dim bFound As Boolean 

rsSensor . MoveFirst 
If txtSensor <> " ” Then 

Do Until ilndex = rsSensor . RecordCount Or bFound 
If rsSensor ! SensorType = txtSensor Then 
cboSensor .Text = rsSensor ! SensorType 
bFound = True 

Else 

rsSensor . MoveNext 
ilndex = ilndex + 1 
End If 



Loop 
End If 

End Sub 



'*★★*★*★★★★*****★*******************★**★**★***★•*•■*■★*★•*•*★*****★* 
'Module: f rmNomEvents . f rm 

'Description: Allows user to access the nomination event 

' records for addition, deletion, and 

' modification. 
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'Programmer: Kevin Colon 



Option Explicit 

Dim rsAcquisition 
Dim rsMensuration 
Dim rsGISRS 
Dim stSQLl 
Dim stSQL2 
Dim stSQL3 
Private WordApp 
Private Doc 
Private Sel 



As Recordset 
As Recordset 
As Recordset 
As String 
As String 
As String 

As Word. Application 
As Word. Document 
As Word. Selection 



Private Sub cboAcquisition_Change ( ) 

If cboAcquisition . Listlndex >= 0 Then 

txtAcquisition = cboAcquisition . Text 
End If 

End Sub 

Private Sub cboGISRS_Change ( ) 

If cboGISRS .Listlndex >= 0 Then 
txtGISRS = cboGISRS . Text 
End If 

End Sub 

Private Sub cboMensuration_Change ( ) 

If cboMensuration . Listlndex >= 0 Then 

txtMensuration = cboMensuration . Text 
End If 

End Sub 

Private Sub cmdAdd_Click ( ) 

On Error GoTo HandleAddErrors 

If cmdAdd. Caption = "&Add Event” Then 

datNomination . Recordset . AddNew 
cboAcquisition. Enabled = True 
cboMensuration. Enabled = True 
cboGISRS . Enabled = True 
cboAcquisition. Listlndex = -1 
cboMensuration. Listlndex = -1 
cboGISRS. Listlndex = -1 
txtTimeSent .Enabled = True 
txtTimeRcvd. Enabled = True 
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txtAssess . Enabled = True 
txtTLE. Enabled = True 
cmdUpdate . Enabled = False 
cmdSave. Enabled = True 
cmdDel .Enabled = False 
cmdAdd. Caption = "^Cancel" 
mnuFile. Enabled = False 
da tNomination. Enabled = False 



Else 



datNomination . Recordset . CancelUpdate 
cboAcguisition. Enabled = False 
cboMensuration. Enabled = False 
cboGISRS. Enabled = False 
txtTimeSent . Enabled = False 
txtTimeRcvd. Enabled = False 
txtAssess . Enabled = False 
txtTLE. Enabled = False 
cmdUpdate . Enabled = True 
cmdSave. Enabled = False 
cmdDel . Enabled = True 
cmdAdd. Caption = "&Add Event" 
mnuFile . Enabled = True 
datNomination . Enabled = True 
cmdAdd . SetFocus 

End If 

cmdAdd_C lie k_Ex i t : 

Exit Sub 

HandleAddErrors : 

Dim stMess As String 

stMess = "Cannot complete operation. " & vbCrLf & vbCrLf & 

Err . Description 

MsgBox stMess, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 

End Sub 

Private Sub cmdDel_Click ( ) 

Dim iResp As Integer 

On Error GoTo HandleDelErrors 

If datNomination . Recordset . RecordCount > 0 Then 

iResp = MsgBox ( "Delete Event n & txtNomination & vbYesNo, 

"Delete Event") 

If iResp = vbYes Then 

With datNomination. Recordset 
.Delete 
.MoveNext 
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If .EOF Then 

. Move Pr e v i ou s 
If .BOF Then 

MsgBox "The recordset is empty.", 
vblnf ormation, "No Records" 

End If 
End If 
End With 
End If 

Else 

MsgBox "No records to delete.", vbExclamation, "Delete Event" 
End If 

cmdDel_Click: 

Exit Sub 

HandleDelErrors : 

Dim stMess As String 

stMess = "Cannot complete operation." & vbCrLf & vbCrLf Sc 
Err . Description 

MsgBox stMess, vbExclamation, "Database Error" 

On Error GoTo 0 



End Sub 

Private Sub cmdSave_Click ( ) 

' save current record 

On Error GoTo HandleSaveErrors 

If cboAcquisition.Listlndex >= 0 And cboGlSRS . List Index >= 0 Then 
If Val ( txtCounter) < 10 Then 

txtNominat ion. Text = "NE0 000" Sc txtCounter .Text 

Else 

If Val (txtCounter) < 100 Then 

txtNominat ion .Text = "NE000" Sc txtCounter .Text 

Else 

If Val (txtCounter) < 1000 Then 

txtNomination.Text = "NE00" Sc txtCounter . Text 

Else 

If Val ( txtCounter) < 10000 Then 

txtNomination.Text = "NE0" Sc txtCounter .Text 

Else 

txtNomination.Text = "NE" Sc txtCounter .Text 
End If 
End If 
End If 
End If 

da tNomination. Recordset .Update 

Else 

MsgBox "You must select an Acquisition Event and a GISRS 
Terminal before saving." __ 
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, vbExclamation # "Add Nomination Event" 
datNominat ion . Recordset . CancelUpdate 
End If 

cboAcquisition. Enabled = False 
cboMensuration . Enabled = False 
cboGISRS .Enabled = False 
txtTLE. Enabled = False 
txtTimeSent . Enabled = False 
txtTimeRcvd. Enabled = False 
txtAssess . Enabled = False 
cmdUpdate. Enabled = True 
cmdSave . Enabled = False 
cmdDel .Enabled = True 
cmdAdd. Caption = "&Add Event" 
mnuFile . Enabled = True 
da tNomination . Enabled = True 
cmdAdd . SetFocus 



datNomination . Enabled = True 

cmdSave_Click_Exit : 

Exit Sub 

HandleSaveErrors : 

Dim stMess As String 
Select Case Err. Number 

Case 3022 'duplicate key field 

stMess = "Record already exists — could not save> ' " 
MsgBox stMess, vbExclamation, “Database Error" 

On Error GoTo 0 'turn off error trapping 

Case 3058, 3315 'no entry in key field 

stMess = "Select Acquisition Event and GISRS Terminal 
before saving." 

MsgBox stMess, vbExclamation , "Database Error" 

On Error GoTo 0 'turn off error trapping 

Case Else 

stMess = "Record could not be saved. " & vbCrLf _ 

& Err .Description 

MsgBox stMess, vbExclamation, "Database Error" 
datNomination . Recordset . CancelUpdate 
Resume Next 
End Select 

End Sub 

Private Sub cmdUpdate_Click ( ) 

If cmdUpdate. Caption = "^Update" And _ 

datNomination. Recordset .RecordCount > 0 Then 

cmdUpdate . Caption = "Su&bmit" 
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cboAcquisition . Enabled = True 
cboMensura ti on . Enabled = True 
cboGISRS.Enabled = True 
txtTimeSent . Enabled = True 
txtTimeRcvd. Enabled = True 
txtTLE . Enabled = True 
txtAssess .Enabled = True 
cndAdd. Enabled = False 
cmdSave . Enabled = False 
cmdDel . Enabled = False 
mnuFile. Enabled = False 
datNominat ion. Enabled = False 
datNomination . Recordset . Edit 



Else 

If datNomination. Recordset .RecordCount > 0 Then 
datNomination . Recordset . Update 

cboAcquisition . Enabled = False 
cboMensura t ion. Enabled = False 
cboGISRS.Enabled = False 
txtTLE. Enabled = False 
txtTimeSent . Enabled = False 
txtTimeRcvd. Enabled = False 
txtAssess .Enabled = False 
cmdDel .Enabled = True 
cmdAdd. Enabled = True 
cmdAdd. SetFocus 
cmdUpdate. Caption = " ^Update" 
mnuFile. Enabled = True 
datNomination. Enabled = True 



End If 
End If 

End Sub 

Private Sub datNominat ion_Reposit ion ( ) 
SetNominationRecordNumber 
End Sub 

Private Sub Form_Load() 

datNomination .DatabaseName = gstNewDatabase 

stSQLl = "Select Acquisition from Acquisition" 
stSQL2 = "Select Mensuration from Mensuration" 
st SQL 3 = "Select GISRSTerminal from GISRSTerminal " 



Set rsAcquisition = db. OpenRecordset (stSQLl ) 
Set rsMensuration = db. OpenRecordset (stSQL2 ) 
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Set rsGISRS = db. OpenRecordset ( stSQL3 ) 

'fill cboAcquisition 
Do Until rsAcquisition.EOF 

cboAcquisition . Addltem rsAcquisition ! Acquisition 
r sAcqui s i t ion . MoveNext 

Loop 

' fill cboMensuration 
Do Until rsMensuration . EOF 

cboMensuration . Addltem rsMensuration ‘Mensuration 
rsMensuration. MoveNext 

Loop 

'fill cboGISRS 
Do Until rsGISRS. EOF 

cboGISRS .Addltem rsGISRS ! GISRSTerminal 
rsGISRS .MoveNext 

Loop 

With datNomination 
.Refresh 

If Not .Recordset .EOF Then 
. Recordset . MoveLas t 
. Recordset . MoveFirst 
End If 
End With 

SetNominationRecordNumber 
End Sub 

Private Sub SetNominationRecordNumber ( ) 

Dim iRecordCount As Integer 
Dim iCurrentRecord As Integer 

iRecordCount = datNomination . Recordset . RecordCount 
iCurrentRecord = datNomination. Recordset . AbsolutePosition + 1 



If datNomination . Recordset . EOF Then 

datNomination. Caption = "No more records" 

Else 



datNomination . Caption 1 
iCurrentRecord & _ 



= "Nomination Event Record 
" of " & iRecordCount 



End If 



Sc 



End Sub 

Private Sub Form_Unload (Cancel As Integer) 

frmMain . Enabled = True 
Unload Me 
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End Sub 



Private Sub mnuFileBack_Click ( ) 

frmMain. Enabled = True 
Unload Me 

End Sub 

Private Sub mnuFilePrint_Click ( ) 
f rmPrint . Show 

On Error GoTo mnuPrintErrors 

If bContinue = True Then 

With da tNomination. Recordset 

If bWord = True Then 

Set WordApp = New Word. Application 
WordApp. Documents .Add 
Set Doc = WordApp. Ac tiveDocument 
Set Sel = WordApp. Selection 

Doc . Tables .Add Range : =Sel . Range, NumRows : = . RecordCount , 

NumColumns : =8 



Sel.TypeText Text := "Nomination" 

Sel .MoveRight unit: =12 '12=next cell 

Sel.TypeText Text := "Nomination Sent" 

Sel .MoveRight unit: =12 '12=next cell 

Sel.TypeText Text : ="Nomination Rcvd" 

Sel .MoveRight unit: =12 * '12=next cell 

Sel .TypeText Text : ="Acquisition" 

Sel .MoveRight -unit: =12 ' 12=next cell 

Sel .TypeText Text := "Mensuration” 

Sel .MoveRight unit: =12 ' 12=next cell 

Sel.TypeText Text : ="GISRS” 

Sel .MoveRight unit: =12 '12=next cell 

Sel .TypeText Text :=" Assessment " 

Sel .MoveRight unit: =12 '12=next cell 

Sel.TypeText Text :=" Target Location Error” 

Sel .MoveRight unit: =12 '12=next cell 

Do Until .EOF 
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cell 


Sel.TypeText Text := l Nomination 

Sel .MoveRight unit: =12 '12=next 


cell 


Sel . TypeText Text : = ! NomTimeSent 

Sel .MoveRight unit: =12 '12=next 


cell 


Sel . TypeText Text : = ! NomTimeRcvd 

Sel .MoveRight unit: =12 '12=next 


cell 


Sel.TypeText Text : = ! Acquisition 

Sel .MoveRight unit: =12 '12=next 


cell 


Sel.TypeText Text :=! Mensuration 

Sel .MoveRight unit: =12 ' 12=next 


cell 


Sel.TypeText Text : = ! GISRSTerminal 

Sel .MoveRight unit: =12 '12=next 


cell 


Sel.TypeText Text :=! Assessment 

Sel .MoveRight unit: =12 * # 12=next 


cell 


Sel . TypeText Text : = ! TargetLoca tionError 

Sel .MoveRight unit: =12 '12=next 

. MoveNext 

Loop 

WordApp. Visible = True 
Set WordApp = Nothing 


Chr ( 9 ) ; 


Else 

If bText = True Then 

Open App.Path & "\NomEvents.txt’' For Output As #1 

Print #1, "Nomination"; Chr (9); "Nomination Sent" 
"Nomination Rcvd" ; Chr (9); _ 

"Acquisition"; Chr (9) ; "Mensuration"; 


Chr (9) ; 


"GISRTerminal " ; Chr(9) ; "Assessment"; 


Chr (9) ; 


"TargetLocationError" ; Chr (9) 
Do Until .EOF 
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Print #1, ‘Nomination; Chr(9); _ 

! NomTimeSent ; Chr ( 9 ) ; _ 

! NomTimeRcvd ; Chr { 9 ) ; _ 
‘Acquisition; Chr (9) ; _ 
[Mensuration; Chr{9); _ 

1 GISRSTerminal ; Chr{9); _ 
[Assessment; Chr{9); _ 

1 TargetLocat ionError ; Chr ( 9 ) 



.MoveNext 

Loop 

Close #1 

End If 
End If 

.MoveFirst 

End With 

End If 

bContinue = False 
bWord = False 
bText = False 



mnuPrintErrors : 

Select Case Err. Number 
Case 94 

Sel . TypeText Text : = " " 
Resume Next 
End Select 



End Sub 

Private Sub txtAcquisition_Change ( ) 

'selects correct combo box listing 
Dim i Index As Integer 

Dim bFound As Boolean 

rsAcquisition. MoveFirst 
If txtAcquisition <> " " Then 

Do Until ilndex = rsAcquisition . RecordCount Or bFound 
If rsAcquisition ‘Acquisition = txtAcquisition Then 
cboAcquisition . Text = rsAcquisition I Acquisition 
bFound = True 

Else 

rsAcquisition .MoveNext 
ilndex = ilndex + 1 
End If 
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Loop 
End If 

End Sub 

Private Sub txtGISRS_Change ( ) 

'selects correct combo box listing 
Dim ilndex As Integer 

Dim bFound As Boolean 

rsGISRS .MoveFirst 
If txtGISRS <> "" Then 

Do Until ilndex = rsGISRS .RecordCount Or bFound 
If rsGISRS l GISRSTerminal = txtGISRS Then 
cboGISRS.Text = rsGISRS ’GISRSTerminal 
bFound = True 

Else 

rsGISRS.MoveNext 
ilndex = ilndex + 1 
End If 



Loop 
End If 

End Sub 

Private Sub txtMensuration_Change ( ) 

'selects correct combo box listing 
Dim ilndex As Integer 

Dim bFound As Boolean 

rsMensurat ion .MoveFirst 
If txtMensuration <> nn Then 

Do Until ilndex = rsMensuration . RecordCount Or bFound 
If rsMensuration ’Mensuration = txtMensuration Then 
cboMensurat ion. Text = rsMensuration ! Mensuration 
bFound = True 

Else 

rsMensuration . MoveNext 
ilndex = ilndex + 1 
End If 



Loop 
End If 

End Sub 






frmObjectives . frm 

Allows user to access the objectives 
records for addition, deletion, and 
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Module : 
Description: 



7 modification. 

'Programmer: Kevin Colon 



Option Explicit 

Private Sub cmdAdd_Click ( ) 

On Error GoTo HandleAddErrors 

If cmdAdd. Caption = "Sc Add" Then 

datOb j ectives . Recordset . AddNew 
txtObjective. Enabled = True 
txtObjective . SetFocus 
txtDescription. Enabled = True 
cmdAdd. Caption = "ScCancel" 
cmdSave. Enabled = True 
cmdDel .Enabled = False 
cmdUpdate. Enabled = False 
mnuFile. Enabled = False 
datOb j ectives . Enabled = False 



Else 

datOb j ectives . Recordset . CancelUpdate 

txtObjective . Enabled = False 

txtDescription. Enabled = False 

cmdSave. Enabled = False 

cmdDel .Enabled = True 

cmdUpdate. Enabled = True 

mnuFile. Enabled = True 

cmdAdd . Caption = " ScAdd " 

cmdAdd . SetFocus 

datOb j ectives .Enabled = True 

End If 

cmdAdd_C 1 i ck_Exi t : 

Exit Sub 

HandleAddErrors : 

Dim stMess As String 

stMess = "Cannot complete operation. " Sc vbCrLf Sc vbCrLf 
Sc Err .Description 

MsgBox stMess, vbExc lama t ion , "Database Error" 

On Error GoTo 0 ’turn off error trapping 



End Sub 

Private Sub cmdDel_Click ( ) 

'delete the current record 
Dim iResp As Integer 

On Error GoTo HandleDelErrors 

If datOb j ectives . Recordset . RecordCount > 0 Then 
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iResp = MsgBox ( "Delete Objective " Sc txtObjective . Text & "?", 
vbYesNo, "Delete Objective") 

If iResp = vbYes Then 

With datObjectives .Recordset 

.Delete 'delete current record 

.MoveNext 'move to following record 

If .EOF Then 

.MovePrevious 
If .BOF Then 

MsgBox "The recordset is empty.", 
vblnf ormation, "No Records" 

End If 
End If 
End With 
End If 

Else 

MsgBox "No records to delete.", vbExclamation _ 

, "Delete Objective" 



End If 

cmdDel_Click_Exit : 

Exit Sub 

HandleDelErrors : 

Dim stMsg As String 

‘StMsg = "Cannot complete operation." Sc vbCrLf Sc vbCrLf _ 

& Err .Description 

MsgBox stMsg, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 

End Sub 

Private Sub cmdSave_Click ( ) 

'save the current record 
Dim iResp As Integer 

On Error GoTo HandleSaveErrors 

If txtObjective <> " " And txtDescription <> " " Then 
txtObjective = UCase (txtObjective) 

iResp = MsgBox("Do you want to add " Sc txtObjective Sc _ 

" to the database?", vbYesNo + vbQuestion, _ 
"Add Objective") 

If iResp = vbYes Then 

datOb j ectives . Recordset . Update 
End If 



Else 

MsgBox "You must enter an Objective and a description before 
saving.", vbExclamation _ 

, "Add Objective" 

datObj ectives . Recordset . CancelUpdate 
End If 
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txtObjective. Enabled = False 
txtDescript ion. Enabled = False 
cmdSave. Enabled = False 
cmdDel . Enabled = True 
datObjectives . Enabled = True 
mnuFile. Enabled = True 
cmdAdd. Caption = "&Add" 
cmdAdd . SetFocus 
cmdUpdate. Enabled = True 



cmdSave_Click_Exit : 

Exit Sub 

HandleSaveErrors : 

Dim stMess As String 
Select Case Err. Number 

Case 3022 'duplicate key field 

stMess = "Record already exists -- could not save>' 
MsgBox stMess, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 

Case 3058, 3315 'no entry in key field 

stMess = "Enter a Objective name before saving." 
MsgBox stMess, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 

Case Else 

stMess = "Record could not be saved." & vbCrLf _ 

& Err .Description 

MsgBox stMess, vbExclamation, "Database Error" 
dat Ob j ec t ives . Recordset . CancelUpda te 
Resume Next 
End Select 

End Sub 

Private Sub cmdUpdate_Click ( ) 

If cmdUpdate. Caption = "ScUpdate" And _ 

datObjectives . Recordset . RecordCount > 0 Then 

cmdUpdate . Caption = " SuScbmit " 
txtObjective . Enabled = True 
txtDescript ion . Enabled = True 
cmdDel .Enabled = False 
mnuFile . Enabled = False 
txtObjective . SetFocus 
cmdAdd. Enabled = False 
datObjectives . Enabled = False 
datObjectives .Recordset . Edit 

Else 

If datObjectives . Recordset . RecordCount > 0 Then 
datObjectives . Recordset . Update 

txtObjective. Enabled = False 
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txtDescription. Enabled = False 
cmdDel . Enabled = True 
mnuFile . Enabled = True 
cmdAdd. Enabled = True 
cmdAdd . SetFocus 
cmdUpdate . Caption = " ScUpdate" 
datObjectives .Enabled = True 
End If 
End If 

End Sub 

Private Sub datObj ectives_Reposition ( ) 

SetObject iveRecordNumber 

End Sub 

Private Sub Form_Load ( ) 

datObjectives . DatabaseName = gstNewDatabase 

With datObjectives 
. Refresh 

If Not . Recordset . EOF Then 
. Recordset . MoveLast 
. Recordset .MoveFirst 
End If 
End With 

Set Ob j ec t iveRecordNumber 



End Sub 

Private Sub Form_Un load (Cancel As Integer) 
frmMain. Show 
frmMain. Enabled = True 
Unload Me 

End Sub 

Private Sub mnuFileBack_Click ( ) 

frmMain. Enabled = True 
Unload Me 

End Sub 

Private Sub mnuFile Sear ch_C lick ( ) 

datObjectives . Recordset . FindFirst . " [Description] = ' n Sc _ 

Inpu t Box ( "Enter the Objective", "Objective Search") & 



If datObjectives . Recordset . NoMatch Then 

MsgBox "Objective was not found.", vbOKOnly, "Objective Search" 
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'go to first record 



datObjectives . Recordset .MoveFirst 
End If 

End Sub 

Private Sub SetObjectiveRecordNuinber ( ) 

Dim iRecordCount As Integer 
Dim iCurrentRecord As Integer 

iRecordCount = datObjectives .Recordset . RecordCount 
iCurrentRecord = datObjectives . Recordset . AbsolutePosition + 1 
If datObjectives . Recordset . EOF Then 

datObjectives . Caption = "No more records" 

Else 

datObjectives .Caption = "Objective " 5c 'iCurrentRecord Sc __ 

" of " Sc iRecordCount 

End If 
End Sub 



/★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★■a-* 

'Module : f rmPlatf orms . frm 

'Description: Allows user to access the platform 

' records for addition, deletion, and 

' modification. 

'Programmer: Kevin Colon 

t ********★**★*★★***★**★*★***★*★**★★★**★*★★**★*★****★★**★★*★*★* 



Option Explicit 

Private Sub cboPlatType_Click ( ) 

If cboPlatType .Listlndex >= 0 Then 

txtPlatTypeld = cboPlatType . Text 

End If 

End Sub 

Private Sub cmdAddPlat_Click ( ) 

On Error GoTo HandleAddPlatErrors 

If cmdAddPlat . Caption = "ScAdd Platform" Then 

dat Plat forms . Recordset . AddNew 
cboPlatType. Enabled = True 
cboPlatType. Listlndex = 0 
txt Plat form. Enabled = True 
txtPlatName. Enabled = True 
txtCommander .Enabled = True 
txt Specialty .Enabled = True 
txtLocat ion. Enabled = True 
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txtLogger .Enabled = True 
txtPlatTypeld. Enabled = True 
cmdSavePlat . Enabled = True 
cmdDelPlat . Enabled = False 
cmdUpdate . Enabled = False 
mnuFile . Enabled = False 
cboPlatType . SetFocus 
cmdAddPlat .Caption = "&Cancel" 
datPlatforms . Enabled = False 

Else 

datPlatforms . Recordset . CancelUpdate 

cboPlatType . Enabled = False 
txtPlatform. Enabled = False 
txtPlatName. Enabled = False 
txtCommander . Enabled =' False 
txtSpecialty. Enabled = False 
txtLocation. Enabled = False 
txtLogger . Enabled = False 
txtPlatTypeld. Enabled = False 
cmdSavePlat .Enabled = False 
cmdDelPlat . Enabled = True 
cmdUpdate . Enabled = True 
mnuFile . Enabled = True 
cmdAddPlat .Caption = "&Add Platform” 
cmdAddPlat . SetFocus 

datPlatf 02ms . Enabled = True 



End If 

cmdAddPlat_Click_Exit : 

Exit Sub 

HandleAddPlatErrors : 

Dim stMess As String 

stMess = "Cannot complete operation. " & vbCrLf & 
Sc Err .Description 

MsgBox stMess, vbExclamation, "Database Error" 

On Error G0T0 0 'turn off error trapping 



End Sub 

Private Sub FillPlatTypeCombo ( ) 

Dim iCount As Integer 
'fill the PlatType combo box 
cboPlatType .Clear 

With datPlatType 

.Refresh 'open database 

iCount = .Recordset . RecordCount 



vbCrLf 
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II It 



'fill the list 
Do Until . Recordset . EOF 

If .Recordset 1 Plat formType <> " " Then 

cboPlatType . Addltem .Recordset ! Plat formType 



End If 

. Recordset . MoveNext 

Loop 
End With 



End Sub 



Private Sub cmdDelPlat_Click ( ) 

'delete the current record 
Dim iResp As Integer 

On Error GoTo HandleDelPlatErrors 



If da tPlatforms. Recordset .RecordCount > 0 Then 

iResp = MsgBox ( "Delete Platform " & txtPlatform & "? M , 

"Delete Platform") 

If iResp = vbYes Then 

With datPlat forms .Recordset 

.Delete 'delete current record 

.MoveNext 'move to following* record 

If .EOF Then 

.Move Previous 
If .BOF Then 

MsgBox "The recordset is empty.", 
vblnf ormation, "No Records" 

End If 
End If 
End With 
End If 

Else 

MsgBox "No records to delete.", vbExclamation _ 

, "Delete Event" 



End If 

cmdDelPlat_Click_Exit : 

Exit Sub 

HandleDelPlatErrors : 

Dim stMsg As String 

stMsg = "Cannot complete operation." & vbCrLf Sc vbCrLf 
Sc Err .Description 

MsgBox stMsg, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 

End Sub 

Private Sub cmdSavePlat_Click ( ) 



vbYesNo, 
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' save the current record 



On Error GoTo HandleSavePlat f ormErrors 
If cboPlatType . Listlndex >= 0 Then 

If txtPlatforxn <> "" And txtPlatName <> "" Then 
datPlat forms . Recordset . Update 

Else 

MsgBox "You must enter a Platform name and id before 



saving . 



, vbExc lamat ion, "Add Platform" 
datPlat forms . Recordset . CancelUpdate 



End If 



Else 

MsgBox "You must select a Platform Type before saving." 

, vbExc lamat ion, "Add Platform" 
datPlat forms . Recordset . CancelUpdate 

End If 



cboPlatType. Enabled = False 
txt Plat form. Enabled = False 
txtPlatName. Enabled = False 
txtCommander. Enabled = False 
txtSpecialty .Enabled = False 
txtLocation. Enabled = False 
txtLogger. Enabled = False 
txt PlatTypeld. Enabled = False 
cmdSavePlat . Enabled = False 
cmdDelPlat .Enabled = True 
cmdUpdate. Enabled = True 
mnuFile . Enabled = True 
cmdAddPlat .Caption = "ScAdd Platform" 
cmdAddPlat . SetFocus 

datPlat forms. Enabled = True 

cmdSavePlat_Click_Exit : 

Exit Sub 

HandleSavePlatf ormErrors : 

Dim stMess As String 
Select Case Err. Number 

Case 3022 'duplicate key field 

stMess = "Record already exists -- could not save>'" 
MsgBox stMess, vbExc lama t ion , "Database Error" 

On Error GoTo 0 'turn off error trapping 

Case 3058, 3315 'no entry in key field 

stMess = "Select a platform type before saving." 
MsgBox stMess, vbExc lamat ion, "Database Error" 

On Error GoTo 0 'turn, off error trapping 

Case Else 

stMess = "Record could not be saved'. " & vbCrLf _ 
a Err .Description 

MsgBox stMess, vbExclamation, "Database Error" 
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datPlatf onus . Recordset . CancelUpdate 
Resume Next 
End Select 

End Sub 

Private Sub cmdUpdate_Click ( ) 

If cmdUpdate .Caption = "ScUpdate" And _ 

datPlatf orms. Recordset .RecordCount > 0 Then 

cmdUpdate .Caption = "SuScbmit" 
cboPlatType. Enabled = True 
txtPlatform. Enabled = True 
txtPlatf orm. SetFocus 
txtPlatName. Enabled = True 
txtCommander . Enabled = True 
txtSpecialty. Enabled = True 
txtLocat ion. Enabled = True 
txtLogger. Enabled = True 
txtPlatTypeld. Enabled = True 
cmdDelPlat . Enabled = False 
cmdAddPlat . Enabled = False 
mnuFile . Enabled = False 
datPlatf orms . Enabled = False 
datPlatf orms . Recordset . Edit 



Else 

If datPlatf orms . Recordset . RecordCount > 0 Then 
datPlatf orms .Recordset .Update 

cboPlatType. Enabled = False 
txtPlatf orm. Enabled = False 
txtPlatName. Enabled = False 
txtCommander .Enabled = False 
txtSpecialty .Enabled = False 
txtLocation . Enabled = False 
txtLogger .Enabled = False 
txtPlatTypeld. Enabled = False 
cmdDelPlat . Enabled = True 
mnuFile. Enabled = True 
cmdAddPlat . Enabled = True 
cmdAddPlat . SetFocus 
cmdUpdate .Caption = "ScUpdate" 
datPlat forms .Enabled = True 
End If 
End If 

End Sub 

Private Sub datPlatf orms_Reposition ( ) 

Set Plat f ormRecordNumber 

End Sub 
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Private Sub Form_Load() 

datPlatf orms .DatabaseName = gstNewDatabase 
datPlatType. DatabaseName = gstNewDatabase 

FillPlatTypeCombo 

With datPlatforms 
.Refresh 

If Not . Recordset . EOF Then 
. Recordset . MoveLast 
. Recordset . MoveFirst 
End If 
End With 

datPlatType . Refresh 
datPlatType . Recordset .MoveFirst 

SetPlatf ormRecordNumber 

End Sub 

Private Sub SetPlatf ormRecordNumber ( ) 

Dim iRecordCount As Integer 
Dim iCurrentRecord As Integer 

iRecordCount = datPlatf orms . Recordset . RecordCount 
iCurrentRecord = datPlatf orms . Recordset . AbsolutePosition + 1 
If datPlatf orms. Recordset .EOF Then 

datPlatf orms .Caption = "No more records" 

Else 

datPlatf orms .Caption = "Platform Record " & iCurrentRecord & 

"of " & iRecordCount 

End If 
End Sub 



Private Sub mnuFileBackjClick ( ) 

f rmMain. Show 

frmMa in. Enabled = True 

Unload Me 



End Sub 

Private Sub mnuFileSearch_Click ( ) 



& 



datPlatforms .Recordset .FindFirst " [Platformld] = _ 

InputBox ( "Enter the Platform Id", "Platform Id Search") 

ii / n 



If datPlatforms . Recordset .NoMatch Then 

MsgBox "Platform Id was not found.", vbOKOnly, "Platform Id 

Search" 

datPlatf orms. Recordset .MoveFirst 'go to first record 
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End If 



End Sub 

Private Sub txtPlatTypeId_Change ( ) 

'selects correct combo box listing 
Dim ilndex As Integer 
Dim bFound As Boolean 

datPlatTy pe . Recordset .MoveFirst 
If txtPlatTypeld <> " " Then 

Do Until ilndex = dat PlatType. Recordset . RecordCount Or bFound 
If datPlatType. Recordset ! PlatformType = txtPlatTypeld Then 
cboPlatType.Text = datPlatType . Recordset ! PlatformType 
bFound = True 

Else 

datPlatType . Recordset . MoveNext 
ilndex = ilndex = 1 

End If 

Loop 

Else 

cboPlatType.Listlndex = -1 
End If 

End Sub 



'★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★•a-********** 

'Module: frmPlatformsTypes . frm 

'Description: Allows user to access the platform types 

' records for addition, deletion, and 

' modification. 

'Programmer: Kevin Colon 

i *★**★★*★*★★★★★*★*★**★***★★★*★**★★★*★******★★*★★★**■***★*★★**★*■ 



Option Explicit 

Private Sub cmdAdd_Click ( ) 

On Error GoTo HandleAddErrors 

If cmdAdd. Caption = "&Add" Then 
datPlatTypes . Recordset . AddNew 
txtPlatformType. Enabled = True 
txtPlatf ormType. SetFocus 
txtDescription. Enabled = True 
cmdAdd. Caption = "^Cancel" 
cmdSave . Enabled = True 
cmdDel . Enabled = False 
cmdUpdate. Enabled = False 
mnuFile . Enabled = False 
datPlatTypes .Enabled = False 
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Else 



datPlatTypes . Recordset . CancelUpdate 

txtPlatformType . Enabled = False 

txtDescription. Enabled = False 

cmdSave . Enabled = False 

cmdDel . Enabled = True 

cmdUpdate. Enabled = True 

mnuFile. Enabled = True 

cmdAdd . Caption = "&Add" 

cmdAdd . SetFocus 

datPlatTypes. Enabled = True 

End If 

cmdAdd_Click_Exit : 

Exit Sub 

HandleAddErrors : 

Dim stMess As String 

stMess = "Cannot complete operation. " & vbCrLf & vbCrLf _ 

Sc Err .Description 

MsgBox stMess, vbExclamation , “Database Error" 

On Error GoTo 0 'turn off error trapping 

End Sub 

Private Sub cmdDel_Click ( ) 

'delete the ‘current record 
Dim iResp As Integer 

On Error GoTo HandleDelErrors 

If datPlatTypes . Recordset . RecordCount > 0 Then 

iResp = MsgBox ( "Delete Platform " & txtPlatformType . Text & “ ?" 

vbYesNo, "Delete Platform") 

If iResp = vbYes Then 

With datPlatTypes .Recordset 

.Delete 'delete current record 

.MoveNext 'move to following record 

If .EOF Then 

. MovePrevious 
If .BOF Then 

MsgBox "The recordset is empty.", 

vblnformation, "No Records" 

End If 
End If 
End With 
End If 

Else 

MsgBox "No records to delete.", vbExclamation _ 

, "Delete Platform" 



End If 

cmdDel_Click_Exit : 
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Exit Sub 



HandleDelSrrors : 

Dim stMsg As String 

stMsg = "Cannot complete operation." Sc vbCrLf & vbCrLf _ 

5c Err .Description 

MsgBox stMsg, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 

End Sub 

Private Sub cmdSave__Click( ) 

'save the current record 
Dim iResp As Integer 

On Error GoTo HandleSaveErrors 
If txtPlatformType.Text <> " " Then 

txtPlatformType.Text = UCase ( txtPlatf ormType . Text ) 
iResp = MsgBox ("Do you want to add " Sc txtPlatformType.Text Sc 
" to the database?", vbYesNo + vbQuestion, _ 

"Add Platform") 

If iResp = vbYes Then 

datPlatTypes . Recordset . Update 
End If 



Else 

MsgBox "You must enter a Platform type before saving . n , 
vbExclamation _ 

, "Add Platform” 

datPlatTypes . Recordset . CancelUpdate 
End If 

txtPlatf ormType . Enabled = False 
txtDescription . Enabled = False 
cmdSave . Enabled = False 
cmdDel . Enabled = True 
datPlatTypes. Enabled = True 
mnuFile. Enabled = True 
cmdAdd. Caption = "ScAdd" 
cmdAdd. SetFocus 
cmdUpdate. Enabled = True 



cmdSave_Click_Exit : 

Exit Sub 

HandleSaveErrors : 

Dim stMess As String 
Select Case Err. Number 

Case 3022 'duplicate key field 

stMess = "Record already exists -- could not save> ' " 
MsgBox stMess, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 
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Case 3058, 3315 'no entry in key field 

stMess = "Enter a Platform type before saving." 
MsgBox stMess, vbExc lama t ion, "Database Error" 
On Error GoTo 0 'turn off error trapping 

Case Else 

stMess = "Record could not be saved." Sc vbCrLf 
Sc Err . Description 

MsgBox stMess, vbExc lamat ion, "Database Error" 
datPlatTypes . Recordset . CancelUpdate 
Resume Next 
End Select 

End Sub 

Private Sub cmdUpdate_Click ( ) 

If cmdUpdate . Caption = "ScUpdate" And _ 

datPlatTypes . Recordset . RecordCount > 0 Then 

cmdUpdate .Caption = "SuScbmit" 
txtPlatf ormType . Enabled = True 
txtDescription. Enabled = True 
cmdDel . Enabled = False 
mnuFile. Enabled = False 
txtPlatf ormType . SetFocus 
cmdAdd. Enabled = False 
datPlatTypes. Enabled = False 
datPlatTypes . Recordset . Edit 

Else 

If datPlatTypes. Recordset .RecordCount > 0 Then 
datPlatTypes . Recordset .Update 

txtPlatf ormType. Enabled = False 
txtDescription. Enabled = False 
cmdDel . Enabled = True 
mnuFile. Enabled = True 
cmdAdd. Enabled = True 
cmdAdd. SetFocus 
cmdUpdate. Caption = "^Update" 
datPlatTypes . Enabled = True 
End If 
End If 

End Sub 

Private Sub datPlattypes__Reposition ( ) 

Set Plat formRecordNumber 
End Sub 

Private Sub Form_Load() 

datPlatTypes . DatabaseName = gstNewDatabase 
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With datPlatTypes 
. Refresh 

If Not .Recordset . EOF Then 
. Recordset .MoveLast 
.Recordset .MoveFirst 
End If 
End With 

Set Plat formRecordNumber 



End Sub 

Private Sub Form_Unload (Cancel As Integer) 

frmMain. Enabled = True 
Unload Me 

End Sub 

Private Sub mnuFileBack__Click ( ) 

frmMain. Enabled = True 
Unload Me 

End Sub 

Private Sub mnuFileSearch_Click ( ) 

datPlatTypes .Recordset .FindFirst " [Platf ormType] = & __ 

InputBox ( "Enter the Platform Type", "Platform Type 

Search") & "'" 

If datPlatTypes . Recordset . NoMatch Then 

MsgBox "Platform Type was not found. ", vbOKOnly, "Platform Type 

Search" 

datPlatTypes . Recordset .MoveFirst 'go to first record 

End If 

End Sub 

Private Sub Set Plat formRec ordNumber ( ) 

Dim iRecordCount As Integer 
Dim iCurrentRecord As Integer 

iRecordCount = datPlatTypes . Recordset . RecordCount 
iCurrentRecord = datPlatTypes . Recordset . AbsolutePosition + 1 
If datPlatTypes . Recordset . EOF Then 

datPlatTypes .Caption = "No more records" 

Else 

datPlatTypes .Caption = "Platform " & iCurrentRecord & _ 

" of " & iRecordCount 

End If 
End Sub 
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'Module : f rmPrint . f rm 

'Description: Allows user to choose to export report to Word 

' or to a text file 

’Programmer: Kevin Colon 

Option Explicit 

Private Sub cmdCancel_Click { ) 

Unload Me 
End Sub 

Private Sub cmdOK_Click ( ) 

bContinue = True 
If Optionl .Value = True Then 
bWord = True 

Else 

If Opt ion2 .Value = True Then 
bText = True 
End If 
End If 
Unload Me 

End Sub 



’Module: frmPTW.frm 

'Description: Allows user to access the PTW terminal 

' records for addition, deletion, and 

' modification. 

’Programmer: Kevin Colon 



Option Explicit 

Dim rsPlatform As Recordset 

Dim stSQL As String 

Private Sub cboPlatform_Click ( ) 

If cboPlatform.Listlndex >= 0 Then 

txtPlatform = cboPlatf orm. Text 

End If 

End Sub 
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Private Sub cmdAad_Click ( ) 

On Error GoTo HandleAddErrors 

If cmdAdd. Caption = "ScAdd" Then 
dat PTW . Recordset . AddNew 
txtTerminal . Enabled = True 
txtTerminal . SetFocus 
txtFunction. Enabled = True 
cboPlatform. Enabled = True 
cmdAdd. Caption = " SeCancel" 
cmdSave. Enabled = True 
cmdDel . Enabled = False 
cmdUpdate. Enabled = False 
mnuFile .Enabled = False 
dat PTW. Enabled = False 



Else 

datPTW . Recordset . CancelUpdate 
txtTerminal . Enabled = False 
txtFunction. Enabled = False 
cboPlatform. Enabled = False 
cmdSave . Enabled = False 
cmdDel .Enabled = True 
cmdUpdate. Enabled = True 
mnuFile. Enabled = True 
cmdAdd. Caption = "ScAdd” 
cmdAdd . SetFocus 
datPTW. Enabled = True 

End If 

cmdAdd_Click_Exit : 

Exit Sub 

HandleAddErrors : 

Dim stMess As String 

stMess = "Cannot complete operation. " Sc vbCrLf & vbCrLf _ 

& Err .Description 

MsgBox stMess, vbExc lama t ion, "Database Error" 

On Error GoTo 0 'turn off error trapping 

End Sub 

Private Sub cmdDel_Click ( ) 

'delete the current record 
Dim iResp As Integer 

On Error GoTo HandleDelErrors 

If datPTW. Recordset .RecordCount > 0 Then 

iResp = MsgBox ( "Delete Terminal " Sc txtTerminal . Text Sc "?" , 

vbYesNo, "Delete Terminal") 

If iResp = vbYes Then 

With datPTW. Recordset 



191 



.Delete 'delete current record 

.MoveNext 'move to following record 

If .EOF Then 

. MovePrevi ous 
If .BOF Then 

MsgBox "The recordset is empty." , 
vblnf ormation, "No Records" 

End If 
End If 
End With 
End If 

Else 

MsgBox "No records to delete.", vbExclamation _ 

, "Delete Terminal" 



End If 

cmdDe 1_C 1 i ck_Exi t : 

Exit Sub 

HandleDelErrors : 

Dim stMsg As String 

stMsg = "Cannot complete operation." Sc vbCrLf Sc vbCrLf _ 

Sc Err. Description 

MsgBox stMsg, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 

End Sub 

Private Sub cmdSave_Click ( ) 

' save the current record 
Dim iResp As Integer 

On Error GoTo HandleSaveErrors 
If txtTerminal .Text <> " " Then 

txtTerminal . Text = UCase ( txtTerminal . Text ) 

iResp = MsgBox ("Do you want to add " Sc txtTerminal . Text Sc 
" to the database?", vbYesNo + vbQuestion, _ 
"Add Terminal") 

If iResp = vbYes Then 

dat PTW . Recordset . Update 
End If 

Else 

MsgBox "You must enter a Terminal before saving.", 
vbExclamation _ 

, "Add Terminal" 
da t PTW . Rec o r ds e t . Cane e lUpda t e 
End If 

txtTerminal. Enabled = False 
txtFunct ion. Enabled = False 
cboPlatform. Enabled = False 
cmdSave . Enabled = False 
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cmdDel .Enabled = True 
da tPTW. Enabled = True 
mnuFile. Enabled = True 
cmdAdd. Caption = " &Add" 
cmdAdd . SetFocus 
cmdUpdate . Enabled = True 



cmdSave_Click_Exit : 
Exit Sub 



HandleSaveErrors : 

Dim stMess As String 
Select Case Err. Number 

Case 3022 'duplicate key field 

stMess = "Record already exists -- could not save>'" 
MsgBox stMess, vb Exclamation, "Database Error” 

On Error GoTo 0 'turn off error trapping 



Case 3058, 3315 'no entry in key field 

stMess = "Enter a location before saving." 
MsgBox stMess, vbExclamation, "Database Error" 
On Error GoTo 0 'turn off error trapping 



Case Else 

stMess = "Record could not be saved." & vbCrLf 
& Err .Description 

MsgBox stMess, vbExclamation, "Database Error” 
datPTW . Recordset . CancelUpdate 
Resume Next 
End Select 



End Sub 

Private Sub cmdUpdate_Click ( ) 

If cmdUpdate. Caption = "ScUpdate" And _ 

datPTW. Recordset .RecordCount > 0 Then 



cmdUpdate . Caption = " Su&bmit " 
txtTerminal. Enabled = True 
txtFunction. Enabled = True 
cboPlat form. Enabled = True 
cmdDel .Enabled = False 
mnuFile. Enabled = Fals£ 
txtTerminal . SetFocus 
cmdAdd. Enabled = False 
datPTW. Enabled = False 
datPTW. Recordset .Edit 

Else 

If datPTW. Recordset .RecordCount > 0 Then 
txtTerminal = UCase ( txtTerminal ) 
datPTW. Recordset .Update 

txtTerminal .Enabled = False 
txtFunction. Enabled = False 
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cboPlatform. Enabled = False 
cmdDel . Enabled = True 
mnuFile . Enabled = True 
cmdAdd. Enabled = True 
cmdAdd. SetFocus 
cmdUpdate. Caption = "ScUpdate" 
datPTW. Enabled = True 
End If 
End If 

End Sub 

Private Sub datPTW_Reposit ion ( ) 
SetTerminalRecordNumber 

End Sub 

Private Sub Fil 1 Plat formC ombo ( ) 

Dim iCount As Integer 
'fill the PlatType combo box 
cboPlatform. Clear 

With rsPlatform 

iCount = .RecordCount 

'fill the list 
Do Until .EOF 

If ‘Platform <> nM Then 

cboPlatform. AddI tern I Platform 

End If 
. MoveNext 

Loop 
End With 



End Sub 

Private Sub Form_Load() 

datPTW. Da tabaseName = gstNewDatabase 

stSQL = "Select Platform from Platform" 

Set rsPlatform = db . OpenRecordset (stSQL) 

Fill Plat formC ombo 

With datPTW 
.Refresh 

If Not .Recordset . EOF Then 
.Recordset .MoveLast 



194 



.Recordset .MoveFirst 
End If 
End With 

SetTerminalRecordNuiriber 
End Sub 

Private Sub Form_Unload (Cancel As Integer) 

frmMain. Enabled = True 
Unload Me 

End Sub 

Private Sub mnuFileBack_Click ( ) 

frmMain. Enabled = True 
Unload Me 

End Sub 

Private Sub mnuFileSearch_Click ( ) 

datPTW . Recordset . FindFirst " [PTWTerminal ] = ' " & _ 

InputBox ( "Enter the PTW Terminal", "PTW Terminal 

Search" ) Sc " ' " 

If datPTW. Recordset .NoMatch Then 

MsgBox "PTW Terminal was not found.", vbOKOnly, "PTW Terminal 

Search" 

datPTW. Recordset .MoveFirst 'go to first record 

End If 

End Sub 

Private Sub SetTerminalRecordNumber ( ) 

Dim iRecordCount As Integer 
Dim iCurrentRecord As Integer 

iRecordCount = datPTW. Recordset .RecordCount 
iCurrentRecord = datPTW. Recordset . AbsolutePosition + 1 • 

If datPTW. Recordset . EOF Then 

datPTW. Caption = "No more records" 

Else 

datPTW. Caption = "Terminal " Sc iCurrentRecord & _ 

" of " Sc iRecordCount 

End If 
End Sub 

Private Sub txtPlat f orm_Change ( ) 

'selects correct combo box listing 
Dim ilndex As Integer 
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Dim bFound As Boolean 



rsPlatf orm.MoveFirst 
If txtPlatf orm <> " ” Then 

Do Until ilndex = rsPlatf orm. RecordCount Or bFound 
If rsPlatf orm! Platform = txtPlatf orm Then 
cboPlatf orm. Text = rsPlatf orm! Platform 
bFound = True 

Else 

rsPlatf orm . MoveNext 
ilndex = ilndex + 1 
End If 

Loop 

Else 

cboPlatf orm. Listlndex = -1 
End If 

End Sub 



/ ■*★*■*★*★******★★★★★*★**★'*★★*★★★★*★★*★★***★★★*★**★★★*★*★*★***★ 
'Module: frmQueries . frm 

'Description: Contains predefined queries that filter 

' acquisitions and targets based on a parameter 

' selected by the user. 

1 Programmer : Kevin Colon 



Option Explicit 

Dim Index As Integer 

Private Sub cmdCancel_Click ( ) 

frmMa in. Enabled = True 
Unload Me 

End Sub 

Private Sub cmdSubmit_Click ( ) 

f rmQueryOutput . Show 
Me. Enabled = False 

End Sub 

Private Sub Form_Load ( ) 

datPlatf orms .DatabaseName = gstNewDatabase 
datSensTypes . DatabaseName = gstNewDatabase 
da tWeaponTypes. DatabaseName = gstNewDatabase 
datThreatTypes . DatabaseName = gstNewDatabase 

’fill the Platform combo box 
FillPlatf orms 



'fill the Sensor combo box 
FillSensTypes 

'fill the Threat combo box 
FillThreatTypes 

'fill the Weapon combo box 
F i 1 1 WeaponType s 

End Sub 

Private Sub FillPlatf orms ( ) 

cboPlatformsl .Clear 
cboPlatf orms2 .Clear 

With datPlatforms 

.Refresh 'open database 

'fill the list 

Do Until . Recordset . EOF 'until no more records in recordset 

If .Recordset ! Platform <> " " Then 

cboPlatformsl . Addltem . Recordset ! Platform 
cboPlatf orms2 .Addltem . Recordset 1 Platform 

End If 

. Recordset . MoveNext 

Loop 
End With 

End Sub 

Private Sub FillSensTypes ( ) 

cboSensTypesl . Clear 
cboSensTypes2 .Clear 

With datSensTypes 

.Refresh 'open database 

'fill the list 
Do Until .Recordset .EOF 

If .Recordset ! SensorType <> " " Then 

cboSensTypesl .Addltem . Recordset I SensorType 
cboSensTypes2 .Addltem .Recordset ! SensorType 

End If 

. Recordset . MoveNext 

Loop 
End With 

End Sub 

Private Sub FillThreatTypes ( ) 
cboThreatTypes .Clear 
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With datThreat Types 

.Refresh 'open database 

'fill the list 
Do Until . Recordset . EOF 

If . Recordset I ThreatType <> " " Then 

cboThreatTypes . Addltem .Recordset ! ThreatType 
End If 

. Recordset . MoveNext 

Loop 
End With 

End Sub 

Private Sub FillWeaponTypes ( ) 

cboWeaponTypes . Clear 

With datWeaponTypes 

.Refresh 'open database 

'fill the list 
Do Until . Recordset . EOF 

If . Recordset IWeaponType <> " " Then 

cboWeaponTypes . Addltem . Recordset ! WeaponType 
End If 

. Recordset . MoveNext 

Loop 
End With 

End Sub 

Private Sub Form_Un load (Cancel As Integer) 
frmMain. Enabled = True 
Unload Me 

End Sub 

Private Sub Labell_Click ( ) 

optQuery(O) .Value = True 

End Sub 

Private Sub LabellO_Click ( ) 
opt Query (9) .Value = True 

End Sub 

Private Sub Labe 111__C lick ( ) 
opt Query (2) .Value = True 

End Sub 

Private Sub Label2_Click ( ) 
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optQuery(l) .Value = True 
End Sub 

Private Sub Label3_Click ( ) 
optQuery (2 ) . Value = True 
End Sub 

Private Sub Label4_Click ( ) 
opt Query (3) .Value = True 
End Sub 

Private Sub Label5_Click ( ) 

optQuery (4) .Value = True 
End Sub 

Private Sub Label6_Click ( ) 

optQuery (5) .Value = True 
End Sub 

Private Sub Label7_Click ( ) 

optQuery (6) .Value = True 
End Sub 

Private Sub Label8_Click ( ) 

optQuery (7) .Value = True 
End Sub 

Private Sub Label9_Click( ) 

optQuery ( 8) .Value = True 
End Sub 

Private Sub mnuFileBack_Click ( ) 

frmMain. Enabled = True 
Unload Me 

End Sub 

Private Sub op t Query _C lick ( Index As Integer) 
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Select Case Index 

Case 0 

cboPlatf ormsl . Enabled = 
cboSensTypesl . Enabled = 
cboPlatf orms2 . Enabled = 
cboSensTypes2 . Enabled = 
cboWeaponTypes . Enabled 
cboThreatTypes . Enabled 

Case 1 

cboPlatf ormsl . Enabled = 
cboSensTypesl . Enabled = 
cboPlatf orms2 . Enabled = 
cboSensTypes2 . Enabled = 
cboWeaponTypes . Enabled 
cboThreatTypes . Enabled 

Case 2 

cboPlatf ormsl . Enabled = 
cboSensTypesl .Enabled = 
cboPlatf orms2 .Enabled = 
cboSensTypes2 .Enabled = 
cboWeaponTypes . Enabled 
cboThreatTypes . Enabled 

Case 3 

cboPlatf ormsl .Enabled = 
cboSensTypesl . Enabled = 
cboPlatf orms2 . Enabled = 
cboSensTypes2 . Enabled = 
cboWeaponTypes . Enabled 
cboThreatTypes . Enabled 

Case 4 

cboPlatf ormsl . Enabled = 
cboSensTypesl . Enabled = 
cboPlatf orms2 . Enabled = 
cboSensTypes2 .Enabled = 
cboWeaponTypes . Enabled 
cboThreatTypes . Enabled 

Case 5 

cboPlatf ormsl .Enabled = 
cboSensTypesl .Enabled = 
cboPlatf orms2 . Enabled = 
cboSensTypes2 .Enabled = 
cboWeaponTypes . Enabled 
cboThreatTypes . Enabled 

Case 6 

cboPlatf ormsl .Enabled = 
cboSensTypesl .Enabled = 
cboPlatf orms2 .Enabled = 
cboSensTypes2 . Enabled = 
cboWeaponTypes . Enabled 



True 
False 
False 
False 
= False 
= False 



False 
True 
False 
False 
= False 
= False 



False 
False 
True 
True 
= False 
= False 



False 
False 
False 
False 
= True 
= False 



False 
False 
False 
False 
= False 
= True 



False 
False 
False 
False 
= False 
= False 



False 
False 
False 
: False 
= False 

200 



cboThreatTypes . Enabled = False 



Case 7 

cboPlatf ormsl . Enabled = False 
cboSensTypesl .Enabled = False 
cboPlatf orms2 .Enabled = False 
cboSensTypes2 .Enabled = False 
cboWeaponTypes . Enabled = False 
cboThreatTypes. Enabled = False 

Case 8 

cboPlatf ormsl .Enabled = False 
cboSensTypesl .Enabled = False 
cboPlatf orms2 . Enabled = False 
cboSensTypes2 . Enabled = False 
cboWeaponTypes . Enabled = False 
cboThreatTypes .Enabled = False 

Case 9 

cboPlatf ormsl . Enabled = False 
cboSensTypesl . Enabled = False 
cboPlatf orms2 . Enabled = False 
cboSensTypes2 . Enabled = False 
cboWeaponTypes . Enabled = False 
cboThreatTypes . Enabled = False 

End Select 
End Sub 



★ ★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★•a-*************** 

Module : f rmQueryOutput . f rm 

Description: Displays the results from the query executed 

from the Queries form (frmQueries) 

Programmer: Kevin Colon 

★★**★*★**★*★★★*★★★**★★★★★★★***★*★★*★★★★★*★★★★★****★*★**★*★*★★ 



Option Explicit 



Private 


Sub Form_Load ( ) 






Dim 


stSQL 


As 


String 


Dim 


stPrev 


As 


String 


Dim 


RS 


As 


Recordset 


Dim 


i Index 


As 


Integer 


Dim 


iRecord 


As 


Integer 


Dim 


rsNominations 


As 


Recordset 


Dim 


rsTargets 


As 


Recordset 


Dim 


stNoms 


As 


String 


Dim 


stTargets 


As 


String 


Dim 


bFound 


As 


Boolean 



datQuery .DatabaseName = gstNewDatabase 
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'Query by platform used for detection 
If frmQueries . optQuery( 0) -Value = True Then 
stSQL = "Select * from Acquisition n Sc _ 

"Where Acquisition .AcqPlatform = ,H Sc _ 
f rmQueries . cboPlat forms 1 . Text Sc 

Set RS = db . OpenRecordset ( stSQL) 

FlexOutput . Formatstring = "Record | Acquis tion Event | Track 
Id | Platform | Time of Acquisition " 

Do Until RS‘. EOF 

iRecord = iRecord + 1 



& _ 

RSlAcqTime 



FlexOutput .Addltem iRecord 5c vbTab 5c RS I Acquisition 5c vbTab 
RSiTrackld 5c vbTab Sc RS ! AcqPlatform & vbTab 5c 
RS . MoveNext 



Loop 
End If 



'Query by sensor used for detection 
If frmQueries . opt Query ( 1) .Value = True Then 

stSQL = "Select * from Acquisition, SensorType " 5c _ 

"Where Acquisition.AcqSensorType = ' " Sc _ 
frmQueries . cboSensTypesl . Text Sc _ 

"' And SensorType . SensorType = ' " 5c _ 
frmQueries . cboSensTypesl . Text Sc " ' " 

Set RS = db. OpenRecordset (stSQL) 

FlexOutput . Formatstring = "Record | Acquist ion Event] Track 
Id | Sensor Type] Time of Acquisition " 

Do Until RS . EOF 

iRecord = iRecord + 1 

FlexOutput .Addltem iRecord 5c vbTab Sc RS ! Acquisition 5c vbTab 
Sc RSiTrackld 5c vbTab _ 

Sc frmQueries . cboSensTypesl .Text 5c vbTab Sc RSlAcqTime 
RS . MoveNext 

Loop 
End If 



'Query by sensor and platform detection 
If frmQueries . optQuery (2) .Value = True Then 

stSQL = "Select * from Acquisition, SensorType r 
"Where Acquisition.AcqSensorType = ' " Sc 
f rmQueries. cboSensTypes2 . Text 5c _ 
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/ n 



And Acquisition. AcqPlatform = /n Sc _ 
f rmQueries . cboPlatforms2 .Text Sc _ 

" ' And SensorType. SensorType = ' " Sc _ 
f rmQueries . cboSensTypes2 . Text Sc " ' " 



Set RS = db.OpenRecordset (stSQL) 

FlexOutput . Formatstring = "Record | Acquist ion Event | Track 
Id | Platform | Sensor Type | Time of Acquisition " 

Do Until RS . EOF 

iRecord = iRecord + 1 

FlexOutput .AddI tern iRecord & vbTab Sc RS ‘Acquisition Sc vbTab 
Sc RS ! Trackld Sc vbTab _ 

Sc RS ‘AcqPlatform & vbTab Sc 
f rmQueries. cboSensTypes2 .Text Sc vbTab Sc RS ! AcqTime 
RS . MoveNext 

Loop 
End If 



"Query by weapon used 

If f rmQueries. optQuery (3) .Value = True Then 

stSQL = "Select * from Target, WeaponType " Sc _ 

"Where Target . WeaponType = ' " Sc _ 
f rmQueries . cboWeaponTypes . Text Sc _ 

" ' And WeaponType. WeaponType = ' " Sc _ 
f rmQueries . cboWeaponTypes . Text Sc " ' " 

Set RS = db. OpenRecordset (stSQL) 

FlexOutput . Formatstring = "Record | Target Id | Time Target 
Designated | Sensor Type | NLT Time " 

Do Until RS . EOF 

iRecord = iRecord + 1 

FlexOutput .Addltem iRecord Sc vbTab Sc RSITargetId Sc vbTab Sc 
RS ITimeof Designation _ 

Sc vbTab Sc f rmQueries . cboWeaponTypes .Text Sc vbTab Sc 

RS ! Targe tNLTTime 

RS .MoveNext 

Loop 
End If 



"Query by threat types detected 

If f rmQueries .optQuery (4) .Value = True Then 

stSQL = "Select * from Acquisition, ThreatType " Sc _ 
"Where Acquisition. ThreatType = " " Sc _ 
f rmQueries . cboThr eat Types .Text Sc _ 

"" And ThreatType. ThreatType = " " Sc _ 
f rmQueries . cboThreat Types . Text Sc " ' " 

Set RS = db.OpenRecordset (stSQL) 

FlexOutput . Formatstring = " Record | Acquistion Event] Track 
Id | Threat Type | Time of Acquisition " 
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Do Until RS . EOF 

iRecord = iRecord + 1 

FlexOutput .Addltem iRecord Sc vbTab Sc RS ‘Acquisition Sc vbTab 
Sc RSITrackld Sc vbTab _ 

Sc frmQueries.cboThreatTypes.Text Sc vbTab Sc RSIAcqTime 
RS . MoveNext 

Loop 
End If 



'Average time acquisition to mensuration 
If frmQueries .optQuery (5) .Value = True Then 

End If 



'Average time fire command to fire event 
If frmQueries .optQuery (6) .Value = True Then 

End If 



'Nominations accepted as targets 
If frmQueries .optQuery (7) .Value = True Then 

stSQL = "SELECT Nomination . Nomination, Target . Target Id, 

Target .Description, " Sc _ 

"Nomination. Acquisition, Nomination . Mensuration " Sc __ 
"From Nomination, Target " Sc _ 

"WHERE Nomination. Nomination = Target .Nomination" 

Set RS = db. OpenRecordset (stSQL) 

FlexOutput . Format String = "Record) Nomination (Target 
Id | Description [Acquisition (Mensuration " 

FlexOutput . Clear 
iRecord = 1 
Do Until RS . EOF 

FlexOutput .Addltem iRecord & vbTab Sc RS ! Nomination Sc vbTab 

Sc _ 

RS! Target Id Sc vbTab & RS! Description Sc vbTab & 

RS! Acquisition Sc _ 

vbTab Sc RS ! Mensuration 
stPrev = RS! Nomination 
RS . MoveNext 
If Not RS . EOF Then 

If stPrev <> RS! Nomination Then 
iRecord = iRecord + 1 
End If 
End If 

Loop 
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End If 



'Nominations declined as targets 
If frmQueries. opt Query (8) .Value = True Then 
stNoms = "Select * " Sc _ 

"From Nomination " 
stTargets = "Select * “ Sc _ 

"From Target " 

Set rsNominations = db . OpenRecordset ( stNoms) 

Set rsTargets = db. OpenRecordset ( stTargets) 
da t Query . DatabaseName = gstNewDatabase 

rsNominations -MoveFirst 

iRecord = 1 

FlexOutput . Formatstring = " Record | Nomination 
| Acquisition | Mensuration | GISRSTerminal j Assessment 

Do Until rsNominations . EOF 
rsTargets .MoveFirst 

Do Until rsTargets . EOF Or bFound = True 

If rsTargets ! Nomination = rsNominations ‘Nomination 

Then 

bFound = True 

Else 

rsTargets .MoveNext 
End If 



Loop 

With rsNominations 



If bFound = False Then 

FlexOutput .Addltem iRecord Sc vbTab Sc 

‘Nomination Sc vbTab & _ 



‘Acquisition Sc vbTab Sc ‘Mensuration & vbTab 

Sc ‘GISRSTerminal Sc _ 

vbTab & ‘Assessment 
iRecord = iRecord + 1 



End If 
End With 
bFound = False 



rsNominations .MoveNext 

Loop 
End If 



'Targets fired upon (impacts) 

If frmQueries. opt Query (9) .Value = True Then 

st SQL = "Select Impact . Impact , Target . Target Id, 

Target . Description, " Sc _ 

"Fi reCommand. Platform, Fire . RoundsFired, Fire . FireTime, 

" Sc _ 
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" Impact . ImpactTime, Impact. BDA " & _ 

"From Impact, Fire, FireCommand, Target " & _ 

"Where Fire. Fire = Impact . FireEvent " & _ 

"And FireCommand. FireCommand = Fire . FireCommand " & 
"And Target .Targetld = FireCommand . Targetld" 

Set RS = db. OpenRecordset ( stSQL) 



•i 



Sc 



n 



FlexOutput . Formatstring 



"Record | Impact | Target Id| Description 
"Firer Platform | Rounds) Fire Time 
" Impact Time | BDA 



iRecord = 1 
Do Until RS . EOF 

FlexOutput .AddI tern iRecord & vbTab & RS! Impact & vbTab & _ 
RS! Targetld & vbTab & RS I Description & vbTab & 

RS! Platform & _ 

vbTab Sc RS ! RoundsFired Sc vbTab Sc RS!FireTime Sc vbTab & 

RS ! ImpactTime & vbTab & RS ! BDA 
RS .MoveNext 
iRecord = iRecord + 1 



Loop 
End If 

End Sub 

Private Sub Form_Unload (Cancel As Integer) 

frmQueries . Enabled = True 
Unload Me 

End Sub 

Private Sub mnuFileBack_Click ( ) 

frmQueries . Enabled = True 
Unload Me 

End Sub 



'Module: frmQuestions. frm 

'Description: Allows user to access the questions 

' records for addition, deletion, and 

' modification. 

’Programmer: Kevin Colon 
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Option Explicit 



Private Sub cmdAdd__Click ( ) 

On Error GoTo HandleAddErrors 

If cmdAdd. Caption = " &Add" Then 
datQuestions . Recordset . AddNew 
txtQuestion. Enabled = True 
txtQuestion . SetFocus 
txtDescription. Enabled = True 
cmdAdd. Caption = "SeCancel" 
cmdSave . Enabled = True 
cmdDel . Enabled = False 
cmdUpdate . Enabled = False 
mnuFile . Enabled = False 
datQuestions . Enabled = False 



Else 

datQuestions . Recordset . CancelUpdate 

txtQuestion . Enabled = False 

txtDescription. Enabled = False 

cmdSave . Enabled = False 

cmdDel . Enabled = True 

cmdUpdate . Enabled = True 

mnuFile . Enabled = True 

cmdAdd .Caption = " ScAdd " 

cmdAdd . SetFocus 

datQuestions . Enabled = True 

End If 

cmdAdd_Click_Exit : 

Exit Sub 

HandleAddErrors : 

Dim stMess As String 

stMess = "Cannot complete operation. n < 
5c Err .Description 

MsgBox stMess, vbExclamation, "Database 
On Error GoTo 0 'turn off error 



End Sub 

Private Sub cmcLDel_Click ( ) 

'delete the current record 
Dim iResp As Integer 

On Error GoTo HandleDelErrors 

If datQuestions . Recordset . RecordCount > 
iResp = MsgBox { "Delete Question " 5c 
vbYesNo, "Delete Question") 

If iResp = vbYes Then 

With datQuestions. Recordset 
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vbCrLf & vbCrLf _ 

Error" 

trapping 



0 Then 

txtQuestion .Text 5c " ?" 



.Delete 'delete current record 

.MoveNext 'move to following record 

If .EOF Then 

. MovePrevious 
If .BOF Then 

MsgBox "The recordset is empty.", 
vblnf ormation, "No Records" 

End If 
End If 
End With 
End If 

Else 

MsgBox "No records to delete.", vbExclamation __ 

, "Delete Question" 



End If 

cmdDel_Click_Exit : 

Exit Sub 

HandleDelErrors : 

Dim stMsg As String 

stMsg = "Cannot complete operation." & vbCrLf & vbCrLf _ 

Sc Err . Description 

MsgBox stMsg, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 

End Sub 

Private Sub cmdSave_Click ( ) 

' save the current record 
Dim iResp As Integer 

On Error GoTo HandleSaveErrors 

If txtQuestion <> n " And txtDescription <> "" Then 
txtQuestion = UCase ( txtQuestion) 

iResp = MsgBox ("Do you want to add " & txtQuestion & _ 
" to the database?", vbYesNo + vbQuestion, 
" Add Quest ion") 

If iResp = vbYes Then 

datQuestions . Recordset . Update 
End If 



Else 

MsgBox "You must enter an Question and a description before 
saving.", vbExclamation _ 

, "Add Question" 

datQuestions . Recordset . CancelUpdate 
End If 

txtQuestion. Enabled = False 
txtDescription. Enabled = False 
cmdSave . Enabl ed = False 
cmdDel . Enabled = True 
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datQuest ions . Enabled = True 
mnuFile . Enabled = True 
cmdAdd .Caption = " &Add " 
cmdAdd . SetFocus 
cmdUpdate . Enabled = Tirue 



cmdSave_Click_Exit : 

Exit Sub 

HandleSaveErrors : 

Dim stMess As String 
Select Case Err. Number 

Case 3022 'duplicate key field 

stMess = "Record already exists — could not save> ' " 
MsgBox stMess, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 

Case 3058, 3315 'no entry in key field 

stMess = "Enter a Question name before saving." 
MsgBox stMess, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 

Case Else 

stMess = "Record could not be saved." & vbCrLf _ 

Sc Err. Description 

MsgBox stMess, vbExclamation, "Database Error" 
datQuestions . Recordset . CancelUpdate 
Resume Next 
End Select 

End Sub 

Private Sub cmdUpdate_Click ( ) 

If cmdUpdate . Caption = "^Update" And _ 

datQuest ions .Recordset .RecordCount > 0 Then 

cmdUpdate. Caption = "Su&bmit" 
txtQuestion . Enabled = True 
txtDescript ion. Enabled = True 
cmdDel . Enabled = False 
mnuFile . Enabled = False 
txtQuestion . SetFocus 
cmdAdd. Enabled = False 
datQuestions . Enabled = False 
datQuestions . Recordset . Edit 

Else 

If datQuestions. Recordset .RecordCount > 0 Then 
datQuestions . Recordset . Update 

txtQuestion. Enabled = False 
txtDescript ion. Enabled = False 
cmdDel .Enabled = True 
mnuFile . Enabled = True 
cmdAdd . Enabled = True 
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cmdAdd . SetFocus 
cmdUpdate .Caption = "&Update" 
datQuestions . Enabled = True 
End If 
End If 

End Sub 

Private Sub datQuestions_Reposition ( ) 

Se t Que s t i onRec or dNumber 

End Sub 

Private Sub Form_Load() 

datQuestions .DatabaseNaine = gstNewDatabase 

With .datQuestions 
.Refresh 

If Not . Recordset . EOF Then 
. Recordset . MoveLast 
.Recordset .MoveFirst 
End If 
End With 

Set Que s t i onRec or dNumber 



End Sub 

Private Sub Form_JJnload (Cancel As Integer) 
frmMain. Show 
frmMain. Enabled = True 
Unload Me 

End Sub 

Private Sub mnuFileBack_Click ( ) 

frmMain. Enabled = True 
Unload Me 

End Sub 

Private Sub mnuFileSearch_Click ( ) 

datQuestions .Recordset .FindFirst "[Question] = ' " & _ 

InputBox ( "Enter the Question", "Question Search") & 

If datQuestions . Recordset .NoMatch Then 

MsgBox "Question was not found.", vbOKOnly, "Question Search 
datQuestions .Recordset .MoveFirst 'go to first record 

End If 



End Sub 
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Private Sub SetQuestionRecordNumber ( ) 

Dim iRecordCount As Integer 
Dim iCurrentRecord As Integer 

iRecordCount = datQuestions . Recordset . RecordCount 
iCurrentRecord = datQuestions .Recordset . AbsolutePosition + 1 
If datQuestions. Recordset .EOF Then 

datQuestions .Caption = "No more records" 

Else 

datQuestions .Caption = "Question " & iCurrentRecord & _ 

" of " & iRecordCount 

End If 
End Sub 



'Module: frmQuestions . frm 

'Description: Allows user to access the questions 

' records for addition, deletion, and 

' modification. 

‘Programmer: Kevin Colon 

• ★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★•a- 



Option Explicit 

Private Sub cmdAdd_Click ( ) 

On Error GoTo HandleAddErrors 

If cmdAdd. Caption = "&Add" Then 
datQuestions . Recordset . AddNew 
txtQuestion. Enabled = True 
txtQuestion. SetFocus 
txtDescription . Enabled = True 
cmdAdd. Caption = "^Cancel" 
cmdSave . Enabled = True 
cmdDel . Enabled = False 
cmdUpdate. Enabled = False 
mnuFile . Enabled = False 
datQuestions. Enabled = False 



Else 

datQuestions . Recordset .CancelUpdate 

txtQuestion. Enabled = False 

txtDescription. Enabled = False 

cmdSave. Enabled = False 

cmdDel . Enabled = True 

cmdUpdate. Enabled = True 

mnuFile. Enabled = True 

cmdAdd . Caption = "fcAdd" 

cmdAdd . SetFocus 

datQuestions. Enabled = True 

End If 
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cmdAdd_Click_Exit : 

Exit Sub 

HandleAddErrors : 

Dim stMess As String 

stMess = "Cannot complete operation. " & vbCrLf & vbCrLf 
Sc Err .Description 

MsgBox stMess, vbExc lama t ion , "Database Error" 

On Error GoTo 0 ' turn off error trapping 



End Sub 

Private Sub cmdDel_Click ( ) 

'delete the current record 
Dim iResp As Integer 

On Error GoTo HandleDelErrors 

If datQuestions. Recordset .RecordCount > 0 Then 

iResp = MsgBox ( "Delete Question " & txtQuestion . Text & "?", 
vbYesNo, "Delete Question") 

If iResp = vbYes Then 

With datQuestions .Recordset 

.Delete 'delete current record 

.MoveNext 'move to following record 

Tf .EOF Then 

. MovePrevious 
If .BOF Then 

MsgBox "The recordset is empty.", 
vblnf ormation, "No Records" 

End If 
End If 
End With 
End If 

Else 

MsgBox "No records to delete.", vbExc lamat ion _ 

, "Delete Question" 

End If 

cmdDel_Click_Exit : 

Exit Sub 

HandleDelErrors : 

Dim stMsg As String 

stMsg = "Cannot complete operation." & vbCrLf & vbCrLf _ 

& Err .Description 

MsgBox stMsg, vbExclamat ion , "Database Error" 

On Error GoTo 0 'turn off error trapping 

End Sub 
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Then 



Private Sub cmdSave_Click ( ) 

'save the current record 
Dim iResp As Integer 

On Error GoTo HandleSaveErrors 
If txtQuestion <> " " And txtDescription <> " " 
txtQuestion = UCase (txtQuestion) 
iResp = MsgBox ("Do you want to add " & txtQuestion & 

" to the database?", vbYesNo + vbQuestion, 
"Add Question") 

If iResp = vbYes Then 

datQuest ions . Recordset . Update 
End If 



Else 

MsgBox "You must enter an Question and a description before 
saving.", vbExclamation _ 

, "Add Question" 

datQuest ions .Recordset .CancelUpdate 
End If 

txtQuestion. Enabled = False 
txtDescription. Enabled = False 
cmdSave. Enabled = False 
cmdDel .Enabled = True 
datQuestions . Enabled = True 
mnuFile .Enabled = True 
cmdAdd. Caption = "ScAdd" 
cmdAdd. SetFocus 
cmdUpdate. Enabled = True 



cmdSave_Click_Exit : 

Exit Sub 

HandleSaveErrors : 

Dim stMess As String 
Select Case Err. Number 

Case 3022 'duplicate key field 

stMess = "Record already exists — could not save> ' " 
MsgBox stMess, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 

Case 3058, 3315 'no entry in key field 

stMess = "Enter a Question name before saving." 
MsgBox stMess, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 

Case Else 

stMess = "Record could not be saved." & vbCrLf _ 

Sc Err .Description 

MsgBox stMess, vbExclamation, "Database Error" 
datQuestions .Recordset .CancelUpdate 
Resume Next 
End Select 
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End Sub 



Private Sub cmdUpdate_Click ( ) 

If cmdUpdate .Caption = "^Update" And _ 

datQuestions .Recordset .RecordCount > 0 Then 

cmdUpdate. Caption = "Su&bmit" 
txtQuestion. Enabled = True 
txtDescription. Enabled = True 
cmdDel . Enabled = False 
mnuFile .Enabled = False 
txtQuestion . SetFocus 
cmdAdd. Enabled = False 
datQuestions . Enabled = False 
datQuestions . Recordset . Edit 

Else 

If datQuestions . Recordset .RecordCount > 0 Then 
datQuestions . Recordset . Update 

txtQuestion . Enabled = False 
txtDescription . Enabled = False 
cmdDel .Enabled = True 
mnuFile . Enabled = True 
cmdAdd. Enabled = True 
cmdAdd. SetFocus 
cmdUpdate. Caption = "^Update" 
datQuestions . Enabled = True 
End If 
End If 

End Sub 

Private Sub datQuestions_Reposition ( ) 
SetQuestionRecordNumber 

End Sub 

Private Sub Form_Load() 

datQuestions . Da t abas eName = gstNewDatabase 

With datQuestions 
.Refresh 

If Not . Recordset . EOF Then 
.Recordset .MoveLast 
. Recordset . MoveFirst 
End If 
End With 

SetQuestionRecordNumber 



End Sub 

Private Sub Form_Unload( Cancel As Integer) 
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frmMain. Show 
frmMain. Enabled = True 
Unload Me 

End Sub 

Private Sub mnuFileBack_Click ( ) 

frmMain. Enabled = True 
Unload Me 

End Sub 

Private Sub mnuFileSearch_Click ( ) 

datQuestions . Recordset . FindFirst “[Question] = _ 

InputBox ( "Enter the Question", "Question Search") Sc 

If datQuestions . Recordset .NoMatch Then 

MsgBox "Question was not found.", vbOKOnly, "Question Search 
datQuestions . Recordset . MoveFirst 'go to first record 

End If 

End Sub 

Private Sub SetQuestionRecordNumber ( ) 

Dim iRecordCount As Integer 
Dim iCurrentRecord As Integer 

iRecordCount = datQuestions . Recordset . RecordCount 
iCurrentRecord = datQuestions . Recordset . AbsolutePosition + 1 
If datQuestions . Recordset . EOF Then 

datQuestions .Caption = "No more records" 

Else 

datQuestions .Caption = "Question " & iCurrentRecord & __ 

n of " & iRecordCount 

End If 
End Sub 



/★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★I* 

'Module: frmSQL.frm 

'Description: Allows user to enter their own SQL statement 

' and provides the results in a data bound 

' control . 

’Programmer: Kevin Colon 



Option Explicit 
Private Sub cmdCancel_Click ( ) 
frmMain. Enabled = True 
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Unload Me 



End Sub 

Private Sub cmdS ear ch_C lick ( ) 
Dim stMsg As String 



On Error GoTo HandleQueryError 

datSQL . DatabaseName = gstNewDatabase 

datSQL.RecordSource = txtSQL 
datSQL . Refresh 

cmdSearch_Click_Exit : 

Exit Sub 



HandleQueryError : 

Select Case Err. Number 
Case 3078 

stMsg = "A table you entered is not recognized. Please 
verifythat this table exists." 

MsgBox stMsg, vbOKOnly, "Custom Query Error" 

txtSQL . SetFocus 
Exit Sub 
End Select 



End Sub 

Private Sub Form_Unload (Cancel As Integer) 

frmMain. Enabled = True 
Unload Me 

End Sub 

* ★**★★*★***★★★****★★★*★★★★★*★★★*★★**★★★*★*★**★★★*★★*★■*•★•*•★***•★★ 
'Module: f rmTar get Event . frxn 

'Description: Allows user to access the target records 

' for addition, deletion, and modification. 

'Programmer: Kevin Colon 



Option Explicit 



Dim rsNomination 
Dim rsWeaponType 
Dim stSQLl 
Dim stSQL2 
Private WordApp 
Private Doc 



As Recordset 
As Recordset 
As String 
As String 

As Word. Application 
As Word. Document 
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Private Sel 



As Word. Selection 



Private Sub cboNominat ion_Change ( ) 

If cboNomination.Listlndex >= 0 Then 
txtNomination = cboNominat ion. Text 
End If 

End Sub 

Private Sub cboWeaponType_Change ( ) 

If cboWeaponType. List Index >= 0 Then 
txtWeaponType = cboWeaponType . Text 
End If 

End Sub 

Private Sub cmdAdd_Click ( ) 

On Error GoTo HandleAddErrors 

If cmdAdd. Caption = "&Add" Then 

da t Target . Recordset . AddNew 
cboNominat ion. Enabled = True 
cboWeaponType. Enabled = True 
cboNomination.Listlndex = -1 
cboWeaponType. Li st Index = -1 
txtTimeof Designation. Enabled - True 
txtNLTTime . Enabled = True 
txtDescript ion. Enabled = True 
txtLocation. Enabled = True 
txtAltitude . Enabled = True 
txt Speed. Enabled = True 
txtRemark. Enabled = True 
txtTargetld. Enabled = True 
txtPriority. Enabled = True 
txtDesiredEf feet .Enabled = True 
cmdUpdate. Enabled = False 
cmdSave . Enabled = True 
cmdDel . Enabled = False 
cmdAdd. Caption = "^Cancel" 
mnuFile. Enabled = False 
datTarget . Enabled = False 



Else 



datTarget . Recordset . CancelUpdate 
cboNominat ion. Enabled = False 
cboWeaponType . Enabled = False 
txtTimeof Designation. Enabled = False 
txtNLTTime. Enabled = False 
txtDescript ion. Enabled = False 
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txtLocation. Enabled = False 
txtAltitude . Enabled = False 
txtSpeed. Enabled = False 
txtRemark . Enabled = False 
txtTarget Id. Enabled = False 
txtPriority. Enabled = False 
txtDesiredEf feet .Enabled = False 
cmdUpdate. Enabled = True 
cmdSave . Enabled = False 
cmdDel .Enabled - True 
cmdAdd .Caption = " &Add " 
mnuFile. Enabled = True 
datTarget . Enabled = True 
cmdAdd . SetFocus 

End If 

cmdAdd_C lie k_Exi t : 

Exit Sub 

HandleAddErrors : 

Dim stMess As String 

stMess = "Cannot complete operation. " & vbCrLf & vbCrLf & 

Err .Description 

MsgBox stMess, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 



End Sub 

Private Sub cmdDel_Click ( ) 

Dim iResp As Integer 

On Error GoTo HandleDelErrors 

If datTarget .Recordset .RecordCount > 0 Then 

iResp = MsgBox ( "Delete Target " & txtTarget Id Sc " ?", vbYesNo, 
"Delete Target" ) 

If iResp = vbYes Then 

With datTarget . Recordset 
.Delete 
.MoveNext 
If .EOF Then 

. MovePrevious 
If .BOF Then 

MsgBox "The recordset is empty.", 
vblnformation, "No Records" 

End If 
End If 
End With 
End If 

Else 

MsgBox "No records to delete.", vbExclamation, "Delete Target" 
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End If 



cmdDel_Click: 
Exit Sub 



HandleDelErrors : 
Dim stMess 



As String 



stMess = "Cannot complete operation.” & vbCrLf & vbCrLf & 
Err . Description 

MsgBox stMess, vbExclamation, "Database Error" 

On Error GoTo 0 



End Sub 

Private Sub cmdSave_Click ( ) 

' save current record 

On Error GoTo HandleSaveErrors 

If cboNominat ion. List Index >= 0 And cboWeaponType .List Index >= 0 

Then 



datTarget . Recordset . Update 

Else 

MsgBox "You must select a Nomination Event and a Weapon 'Type 
before saving." _ 

, vbExclamation, "Add Target Event" 
datTarget . Recordset . CancelUpdate 
End If 

cboNomination. Enabled = False 
cboWeaponType . Enabled = False 
txtTimeofDesignation . Enabled = False 
txtNLTTime. Enabled = False 
txtDescription . Enabled = False 
txtLocation. Enabled = False 
txtAltitude . Enabled = False 
txtSpeed. Enabled = False 
txtRemark. Enabled = False 
txtTargetld. Enabled = False 
txtPriority. Enabled = False 
txtDesiredEf feet . Enabled = False 
cmdUpdate. Enabled = True 
cmdSave. Enabled = False 
cmdDel . Enabled = True 
cmdAdd. Caption = " &Add" 
mnuFile .Enabled = True 
datTarget . Enabled = True 
cmdAdd . SetFocus 



datTarget . Enabled = True 
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cmdSave_Click_Exit : 

Exit Sub 

HandleSaveErrors : 

Dim stMess As String 
Select Case Err. Number 

Case 3022 'duplicate key field 

stMess = "Record already exists -- could not save> ' " 
MsgBox stMess, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 

Case 3058, 3315 'no entry in key field 

stMess = "Select Nomination Event and Weapon Type before 

saving. " 

MsgBox stMess, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 

Case Else 

stMess = "Record could not be saved." 5c vbCrLf _ 

& Err .Description 

MsgBox stMess, vbExclamation, "Database Error" 
datTarget . Recordset . CancelUpdate 
Resume Next 
End Select 

End Sub 

Private Sub cmdUpdate_Click ( ) 

If cmdUpdate. Caption = "^Update" And 

datTarget. Recordset .RecordCount > 0 Then 

cmdUpdate . Caption = "Su&bmit" 
cboNominat ion. Enabled = True 
cboWeaponType . Enabled = True 
txtTimeof Designation . Enabled = True 
txtNLTTime . Enabled = True 
txtDescript ion. Enabled = True 
txtLocat ion . Enabled = True 
txtAltitude .Enabled = True 
txtSpeed. Enabled = True 
txt Remark. Enabled = True 
txtTargetld. Enabled = True 
txtPriority .Enabled = True 
txtDesiredEf feet . Enabled = True 
cmdAdd. Enabled = False 
cmdSave . Enabled = False 
cmdDel .Enabled = False 
mnuFile. Enabled = False 
datTarget . Enabled = False 
datTarget . Recordset . Edit 



Else 

If datTarget .Recordset-. RecordCount > 0 Then 
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datTarget . Recordset . Update 

cboNominat ion. Enabled = False 
cboWeaponType. Enabled = False 
txtTimeof Designation . Enabled = False 
txtNLTTime. Enabled = False 
txtDescription. Enabled = False 
txtLocation. Enabled = False 
txtAltitude . Enabled = False 
txt Speed. Enabled = False 
txtRemark. Enabled = False 
txtTarget Id. Enabled = False 
txtPriority. Enabled = False 
txtDesiredEf feet . Enabled = False 
cmdDel .Enabled = True 
cmdAdd. Enabled = True 
cmdAdd. SetFocus 
cmdUpdate. Caption = " ^Update" 
mnuFile. Enabled = True 
datTarget .Enabled = True 



End If 
End If 

End Sub 

Private Sub datTarget_Reposition ( ) 
SetTargetRecordNumber 
End Sub 

Private Sub Forrn_Load() 



datTarget .DatabaseName = gstNewDat abase ' 

stSQLl = "Select Nomination from Nomination" 
stSQL2 = "Select WeaponType from WeaponType" 



Set rsNomination = db . OpenRecordset (stSQLl ) 

Set rsWeaponType = db . OpenRecordset (stSQL2 ) 

' fill cboNominat ion 
Do Until rsNomination. EOF 

cboNomination.Addltem rsNomination ‘Nomination 
r sNomina t i on . MoveNext 

Loop 

'fill cboWeaponType 
Do Until rsWeaponType . EOF 

cboWeaponType . AddI tern rsWeaponType ! WeaponType 
rsWeaponType . MoveNext 
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Loop 



With datTarget 
.Refresh 

If Not .Recordset .EOF Then 
. Recordset .MoveLast 
. Recordset . MoveFirs t 
End If 
End With 

SetTargetRecordNumber 
End Sub 

Private Sub SetTargetRecordNumber ( ) 

Dim iRecordCount As Integer 
Dim iCurrentRecord As Integer 

iRecordCount = datTarget . Recordset . RecordCount 
iCurrentRecord = datTarget . Recordset . AbsolutePosition + 1 

If datTarget . Recordset . EOF Then 

datTarget .Caption = "No more records" 

Else 

datTarget .Caption = "Target Record " Sc iCurrentRecord Sc 

" of " Sc iRecordCount 

End If 
End Sub 

Private Sub Form_Unload (Cancel As Integer) 

frmMain. Enabled = True 
Unload Me 

End Sub 

Private Sub mnuFileBack_Click ( ) 

frmMain . Enabled = True 
Unload Me 

End Sub 

Private Sub mnuFilePrint_Click ( ) 
f rmPrint . Show 

On Error GoTo mnuPrintErrors 
If bContinue = True Then 

Wi th datTarget . Recordset 
If bWord = True Then 
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Set WordApp = New Word .Application 
WordApp . Documents . Add 
Set Doc = WordApp .Ac tiveDocument 
Set Sel = WordApp . Selection 

Doc . Tables . Add Range : =Sel . Range , NumRows : = . RecordCount , 

NumColumns: =8 



Sel.TypeText Text : = " Target Id M 



Sel .MoveRight unit: =12 


# 12=next 


cell 


Sel.TypeText Text := "Designation Time" 
Sel .MoveRight unit: =12 


' 12=next 


cell 


Sel . TypeText Text : = "Nomination" 
Sel .MoveRight unit: =12 


' 12=next 


cell 


Sel.TypeText Text := "Location" 
Sel .MoveRight unit: =12 


' 12=next 


cell 


Sel.TypeText Text := "Altitude " 
Sel .MoveRight unit: =12 


' 12=next 


cell 


Sel.TypeText Text :=" Speed" 
Sel .MoveRight unit: =12 


' 12=next 


cell 


Sel.TypeText Text:="NLT Time" 
Sel .MoveRight unit: =12 


' 12=next 


cell 


Sel.TypeText Text :=" Priority " 
Sel . MoveRight unit: =12 


' 12=next 


cell 


Sel.TypeText Text := "Weapon Type" 
Sel .MoveRight unit: =12 


' 12=next 


cell 


Sel . TypeText Text : = " Remark " 
Sel .MoveRight unit: =12 


' 12=next 


cell 



Do Until .EOF 

Sel.TypeText Text : = ITargetld 

Sel .MoveRight unit: =12 # 12=next 

cell 

Sel . TypeText Text : = ! Timeof Designation 

Sel .MoveRight unit: =12 '12=next 

cell 

Sel.TypeText Text := ! Nomina t ion 

Sel .MoveRight unit: =12 '12=next 

cell 



Sel . TypeText Text : = ! TargetLocation 
Sel .MoveRight unit: =12 



' 12=next 



cell 

Sel.TypeText Text : = ! Target Altitude 

Sel .MoveRight unit: =12 '12=next 

cell 

Sel . TypeText Text : = ! Target Speed 

Sel .MoveRight unit: =12 '12=next 

cell 



Sel . TypeText Text : = ! Targe tNLTTime 

Sel .MoveRight unit: =12 '12=next 

cell 

Sel.TypeText Text :=! Priority 

Sel .MoveRight unit: =12 '12=next 

cell 

Sel.TypeText Text : = IWeaponType 

Sel .MoveRight unit: =12 '12=next 

cell 



Sel.TypeText Text :=! Remark 

Sel .MoveRight unit: =12 '12=next 

cell 



. MoveNext 



Loop 

WordApp .Visible = True 
Set WordApp = Nothing 



Chr ( 9 ) ; 



Chr ( 9 ) ; 



Else 



If bText = True Then 

Open App.Path & "\NomEvents.txt" For Output As #1 

Print #1, "Targetld"; Chr(9); "Designation Time"; 
" Nomination " ; Chr ( 9 ) ; _ 



"Location"; Chr (9); "Altitude"; Chr(9) 

" Speed" ; Chr ( 9 ) ; "NLTTime " ; Chr ( 9 ) ; _ 
"Priority"; Chr ( 9 ) ; " WeaponType " ; 

" Remark " ; Chr ( 9 ) 



Do Until .EOF 

Print #1, ! Targetld; Chr(9); _ 

ITimeof Designation; Chr(9); _ 
INomination; Chr(9); _ 
ITargetLocation; Chr(9); _ 
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! TargetAlti tilde; Chr(9); 

! Target Speed ; Chr(9); __ 

! TargetNLTTime ; Chr ( 9 ) ; _ 
! Priority; Chr(9); _ 

! WeaponType ; Chr ( 9 ) ; _ 
•Remark; Chr (9) 



. MoveNext 

Loop 

Close #1 

End If 
End If 

.MoveFirst ’ 

End With 

End If 

bContinue = False 
bWord = False 
bText = False 



mnuPrintErrors : 

Select Case Err. Number 
Case 94 

Sel.TypeText Text:="" 
Resume Next 
End Select 



End Sub 

Private Sub txtNomination_Change ( ) 

'selects correct combo box listing 
Dim ilndex As Integer 

Dim bFound As Boolean 

rsNomi nation . MoveFir st 
If txtNomination <> " " Then 

Do Until ilndex = rsNomination . RecordCount Or bFound 
If rsNomination ! Nomination = txtNomination Then 
cboNomination . Text = rsNomination ! Nomination 
bFound = True 

Else 

rsNomination .MoveNext 
ilndex = ilndex + 1 
End If 



Loop 
End If 
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End Sub 



Private Sub txtWeaponType_Change ( ) 

'selects correct combo box listing 
Dim ilndex As Integer 

Dim bFound As Boolean 

rsWeaponType .MoveFirst 
If txtWeaponType <> "" Then 

Do Until ilndex = rsWeaponType . Rec or dCount Or bFound 
If rsWeaponType l WeaponType = txtWeaponType Then 
cboWeaponType . Text = rsWeaponType ! WeaponType 
bFound = True 

Else 

rsWeaponType . MoveNext 
ilndex = ilndex + 1 
End If 



Loop 
End If 

End Sub 



'Module; frmTargets2 . f rm 

'Description: Allows user to view all target records. Uses 

' the filters form to reduce the number of 

' records displayed. 

1 Programmer : Kevin Colon 

i ★ *****★★**★★*★★★**★*★*★**★*★*★★★★★★★★**★*★★*★*★★**★**★**★*•*■** 



Option Explicit 



Private Sub FlexTargets_DblClick ( ) 
f rmTimeline . Show 
End Sub 

Private Sub dbgTargets_DblClick ( ) 
f rmTimeline. Show 
End Sub 

Private Sub Form_Load ( ) 

Dim stSQL As String 
Dim iRecord As Integer 

stSQL = "Select * from Target" 
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datTargets.DatabaseName = gstNewDatabase 



datTargets . RecordSource = stSQL 
datTargets . Refresh 

End Sub 

Private Sub Form_Resize ( ) 

dbgTargets .Width = Me. Width 
End Sub 

Private Sub FormJJnload (Cancel As Integer) 

frmMa in. Enabled = True 
Unload Me 

End Sub 

Private Sub mnuFileBack_Click ( ) 

frmMa in. Enabled = True 
Unload Me 

End Sub 

Private Sub mnuFilters_Click ( ) 

f rmFilters .Show 
Me. Enabled = False 

End Sub 



'Module : frmThr eat Types . f rm 

'Description: Allows user to access the threat types 

' records for addition, deletion, and 

' modification. 

’Programmer: Kevin Colon 



Option Explicit 

Private Sub cmdAdd_Click ( ) 

On Error GoTo HandleAddErrors 

If cmdAdd. Caption = " &Add” Then 

datThreatTypes .Recordset . AddNew 
txtThreatType . Enabled = True 
txtThreatType . SetFocus 
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txtDescript ion. Enabled = True 
txtMission. Enabled = True 
cmdAdd. Caption = "^Cancel" 
cmdSave. Enabled = True 
cmdDel . Enabled = False 
cmdUpdate . Enabled = False 
mnuFile. Enabled = False 
datThreatTypes . Enabled = False 



Else 

datThreatTypes . Recordset . CancelUpdate 

txtThreatType . Enabled = False 

txtDescription. Enabled = False 

txtMission. Enabled = False 

cmdSave. Enabled = False 

cmdDel .Enabled = True 

cmdUpdate. Enabled = True 

mnuFile. Enabled = True 

cmdAdd. Caption = "&Add" 

cmdAdd . SetFocus 

datThreatTypes . Enabled = True 

End If 

cmdAdd_Cl ick_Exi t : 

Exit Sub 

HandleAddErrors : 

Dim stMess As String 

stMess = "Cannot complete operation. " & vbCrLf & vbCrLf _ 
& Err .Description 

MsgBox stMess, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 

End Sub 

Private Sub cmdDel__Click ( ) 

'delete the current record 
Dim iResp As Integer 

On Error GoTo HandleDelErrors 

If datThreatTypes .Recordset .RecordCount > 0 Then 

iResp = MsgBox ( "Delete Threat " & txt Threat Type. Text & 
vbYesNo, "Delete Threat") 

If iResp = vbYes Then 

With datThreatTypes. Recordset 

.Delete 'delete current record 

.MoveNext 'move to following record 

If .EOF Then 

. MovePrevious 
If .BOF Then 

MsgBox "The recordset is empty.", 
vblnf ormation, "No Records" 

End If 



if *5 n 
• / 
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End If 
End With 
End If 

Else 

MsgBox "No records to delete.", vbExclamation 
, "Delete Threat" 



End If 

cmdDel_Click_Exit : 

Exit Sub 

HandleDelErrors : 

Dim stMsg As String 

stMsg = "Cannot complete operation. " Sc vbCrLf Sc vbCrLf _ 

Sc Err . Description 

MsgBox stMsg, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 

End Sub 

Private Sub cmdSave_Click ( ) 

' save the current record 
Dim iResp As Integer 

On Error GoTo HandleSaveErrors 
If txt Threat Type. Text <> "" Then 

txt Threat Type. Text = UCase ( txtThreatType . Text ) 
iResp = MsgBox ("Do you want to add " Sc txtThreatType . Text Sc 
" to the database?", vbYesNo + vbQuestion, _ 
"Add Threat") 

If iResp = vbYes Then 

datThreatTypes . Recordset . Update 
End If 



Else 

MsgBox "You must enter a Threat type before saving.", 
vbExclamation _ 

, "Add Threat" 

datThreatTypes . Recordset . CancelUpdate 
End If 

txtThreatType . Enabled = False 
txtDescription. Enabled = False 
txtMission. Enabled = False 
cmdSave. Enabled = False 
cmdDel . Enabled = True 
datThreatTypes . Enabled = True 
mnuFile .Enabled = True 
cmdAdd .Caption = " ScAdd " 
cmdAdd. Set Focus 
cmdUpdate .Enabled = True 
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cmdSave_Click_Exit : 

Exit Sub 

HandleSaveErrors : 

Dim stMess As String 
Select Case Err. Number 

Case 3022 'duplicate key field 

stMess = "Record already exists — could not save> 7 
MsgBox stMess, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 

Case 3058, 3315 'no entry in key field 

stMess = "Enter a Threat type before saving." 
MsgBox stMess, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 

Case Else 

stMess = "Record could not be saved." & vbCrLf _ 

& Err .Description 

MsgBox stMess, vbExclamation, "Database Error" 
datThreatTypes . Recordset . CancelUpdate 
Resume Next 
End Select 

End Sub 

Private Sub cmdUpdate_Click ( ) 

If cmdUpdate. Caption = "&Update" And _ 

datThreatTypes. Recordset .RecordCount > 0 Then 

cmdUpdate .Caption = " Su&bmit" 
txtThreatType. Enabled = True 
txtDescription. Enabled = True 
txtMission. Enabled = True 
cmdDel. Enabled = False 
mnuFile. Enabled = False 
txtThreatType. SetFocus 
cmdAdd . Enabled = False 
datThreatTypes . Enabled = False 
datThreatTypes . Recordset . Edit 

Else 

If datThreatTypes .Recordset .RecordCount > 0 Then 
datThreatTypes . Recordset . Update 

txtThreatType. Enabled = False 
txtDescription . Enabled = False 
txtMission. Enabled = False 
cmdDel .Enabled = True 
mnuFile . Enabled = True 
cmdAdd. Enabled = True 
cmdAdd . SetFocus 
cmdUpdate. Caption = " ScUpdate" 
datThreatTypes. Enabled = True 
End If 
End If 
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End Sub 



Private Sub datThreatTypes_Reposition ( ) 
SetThreatRecordNumber 
End Sub 

Private Sub Form_Load{) 

datThreatTypes .DatabaseName = gstNewDatabase 

With datThreatTypes 
. Refresh 

If Not . Recordset . EOF Then 
. Recordset . MoveLas t 
. Recordset . MoveFirs t 
End If 
End With 

SetThreatRecordNumber 



End Sub 

Private Sub Form_Unload (Cancel As Integer) 

frmMain. Enabled = True 
Unload Me 

End Sub 

Private Sub mnuFileBack_Click ( ) 

frmMain. Enabled = True 
Unload Me 

End Sub 

Private Sub mnuFileSearch_Click ( ) 

datThreatTypes . Recordset . FindFirst " [ThreatType] = /M Sc _ 

InputBox ( "Enter the Threat Type", "Threat Type Search") 

Sc " ' n 



If datThreatTypes .Recordset .NoMatch Then 

MsgBox "Threat Type was not found.", vbOKOnly, "Threat Type 

Search" 

datThreatTypes . Recordset .MoveFirs t 'go to first record 

End If 

End Sub 

Private Sub SetThreatRecordNumber ( ) 
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Dim iRecordCount As Integer 
Dim iCurrentRecord As Integer 

iRecordCount = datThreatTypes . Recordset . RecordCount 
iCurrentRecord = datThreatTypes . Recordset . AbsolutePosition + 1 
If datThreatTypes. Recordset .EOF Then 

datThreatTypes. Caption = "No more records" 

Else 

datThreatTypes. Caption = "Threat ” Sc iCurrentRecord & _ 

" of " & iRecordCount 

End If 
End Sub 



'Module: frmTimeline . frm 

'Description: Displays the event timeline from acquisition 

* to impact for a selected target 

'Programmer: Kevin Colon 



Option Explicit 



Private Sub Form_Load() 

Dim st SQL As String 

Dim stTarget As String 

Dim iTabs As Integer 

Dim rsTimes As Recordset 

Dim stSQLl As String 

Dim stSQL2 As String 

Dim stSQL3 As String 

Dim stSQL4 As String 

Dim stSQL5 As String 

Dim stSQL6 As String 

Dim stSQL7 As String 

Dim rsAcquisition As Recordset 

Dim rsMensuration As Recordset 

Dim rsNomination As Recordset 

Dim rsTarget As Recordset 

Dim rsFireCommand As Recordset 

Dim rsFire As Recordset 

Dim rslmpact As Recordset 

frmTargets2 . dbgTargets .Col = 0 
stTarget = f rmTargets2 . dbgTargets . Text 

stSQL4 = "Select * from Target where Target . Targetld = ' " & 
stTarget 5c " ' " 

Set rsTarget = db. OpenRecordset (stSQL4) 

stSQL3 = "Select * from Nomination where Nomination. Nomination 
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II / It 



Sc rsTarget I Nomination Sc 

Set rsNomination = db. OpenRecordset ( stSQL3 ) 

stSQL2 = "Select * from Mensuration where Mensuration .Mensuration 
' " & rsNomination! Mensuration Sc " ' " 

Set rsMensuration = db. OpenRecordset ( stSQL2 ) 

stSQLl = "Select * from Acquisition where Acquisition .Acquisition 
Sc rsNomination! Acquisition Sc " 7 " 

Set rsAcquisition = db. OpenRecordset { stSQLl ) 

stSQLS = "Select * from FireCommand where FireCommand. Target Id = ' 

Sc stTarget Sc " ' " 

Set rsFireCommand = db. OpenRecordset ( stSQL5 ) 

stSQLS = "Select * from Fire where Fire . FireCommand = ' " Sc 
rsFireCommand! FireCommand Sc " ' " 

Set rsFire = db. OpenRecordset { stSQL6 ) 

If rsFire .RecordCount > 0 Then 

stSQL7 = "Select * from Impact where Impact . Fir eEvent = ' " Sc 
rsFire! Fire Sc " ' " 

Set rslmpact = db. OpenRecordset (stSQL7) 

End If 



IstTimeline .Addltem "Target Id: " Sc stTarget 

IstTimeline .Addltem "Target Description: " Sc 

rsTarget ! Description 

IstTimeline .Addltem " " 

IstTimeline .Addltem "NLT Time: " Sc 

rsTarget ! Targe tNLTTime 

IstTimeline .Addltem "" 

IstTimeline .Addltem "Acquisition Time: " Sc 

r sAcqu i s i t i on ! AcqT ime 

IstTimeline .Addltem "Mensuration Rqst: " Sc 

rsMensuration ! TimeRequestSent 

IstTimeline. Addltem "Mensuration Rcvd: " Sc 

rsMensuration ! TimeRequestReceived 

IstTimeline .Addltem "Mensuration Info Sent: " Sc 

rsMensuration ! TimeRequestReceived 

IstTimeline .Addltem "Mensuration Info Rcvd: " Sc 

rsMensuration ! TimeRequestReceived 

IstTimeline .Addltem "Nomination Sent: " Sc 

rsNomination iNomTimeSent 

IstTimeline .Addltem "Nomination Rcvd: " Sc 

rsNomination ! NomTimeRcvd 

IstTimeline .Addltem "Target Designation: " Sc 

rsTarget ! Timeof Designation 

IstTimeline .Addltem "Fire Command Xmit: " Sc 

rsFireCommand ! FCTimeXmit 

IstTimeline .Addltem "Fire Command Rcvd: " Sc 

rsFireCommand ! FCTimeRcvd 



If rsFire. RecordCount > 0 Then 
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Sc rsFire ! FireTime 



lstTimeline .Addltem "Fire Event: 

If rslmpact .RecordCount > 0 Then 

lstTimeline .Addltem "Impact: " Sc rslmpact ! Impact Time 
End If 
End If 

frmTargets2 . Enabled = False 



End Sub 

Private Sub ForrnJJnload (Cancel As Integer) 

f rmTargets2 . Enabled = True 
Unload Me 



End Sub 

7 Module : f rmWeaponTypes . f rm 

'Description: Allows user to access the weapon types 

' records for addition, deletion, and 

' modification. 

'Programmer: Kevin Colon 



Option Explicit 

Private Sub cmdAdd_Click ( ) 

On Error GoTo HandleAddErrors 

If cmdAdd. Caption = "ScAdd" Then 

datWeaponTypes . Recordset . AddNew 
txtWeaponType . Enabled = True 
txtWeaponType . SetFocus 
txtDescription . Enabled = True 
cmdAdd. Caption = "^Cancel" 
cmdSave. Enabled = True 
cmdDel . Enabled = False 
cmdUpdate . Enabled = False 
mnuFile. Enabled = False 
datWeaponTypes . Enabled = False 



Else 

datWeaponTypes . Recordset . CancelUpdate 

txtWeaponType . Enabled = False 

txtDescription . Enabled = False 

cmdSave . Enabled = False 

cmdDel . Enabled = True 

cmdUpdate. Enabled = True 

mnuFile . Enabled = True 

cmdAdd. Caption = "ScAdd" 

cmdAdd . SetFocus 

datWeaponTypes . Enabled = True 
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End If 



cmdAdd_C lie k_Ex i t : 

Exit Sub 

HandleAddErrors : 

Dim stMess As String 

stMess = "Cannot complete operation. " & vbCrLf & vbCrLf _ 

& Err .Description 

MsgBox stMess, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 

End Sub 

Private Sub cmdDel_Click ( ) 

'delete the current record 
Dim iResp As Integer 

On Error GoTo HandleDelErrors 

If da tWeaponTypes. Recordset .RecordCount > 0 Then 

iResp = MsgBox ( "Delete Weapon " Sc txtWeaponType . Text Sc "?" , 
vbYesNo, "Delete Weapon") 

If iResp = vbYes Then 

With da tWeaponTypes . Recordset 

.Delete 'delete current record 

.MoveNext 'move to following record 

I f . EOF Then 

. MovePrevious 
If .BOF Then 

MsgBox "The recordset is empty.", 
vblnformation, "No Records" 

End If 
End If 
End With 
End If 

Else 

MsgBox "No records to delete.", vbExclamation _ 

, "Delete Weapon" 



End If 

cmdDel_Click_ Exit : 

Exit Sub 

HandleDelErrors : 

Dim stMsg As String 

stMsg = "Cannot complete operation. " Sc vbCrLf Sc vbCrLf 
Sc Err .Description 

MsgBox stMsg, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 

End Sub 
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Private Sub cmdSave_Click ( ) 

' save the current record 
Dim iResp As Integer 

On Error GoTo HandleSaveErrors 
If txtWeaponType . Text <> " " Then 

txtWeaponType . Text = UCase { txtWeaponType . Text ) 
iResp = MsgBox ("Do you want to add " & txtWeaponType . Text & 
" to the database?”, vbYesNo + vbQuestion, _ 
"Add Weapon") 

If iResp = vbYes Then 

datWeaponTypes . Recordset . Update 
End If 



Else 

MsgBox "You must enter a weapon type before saving.", 
vbExclamation _ 

, "Add Weapon" 

datWeaponTypes . Recordset . CancelUpdate 
End If 

txtWeaponType. Enabled = False 
txtDescr ip t ion . Enabled = False 
cmdSave . Enabled = False 
cmdDel . Enabled = True 
datWeaponTypes . Enabled = True 
mnuFile . Enabled =■ True 
cmdAdd. Caption = "ScAdd" 
cmdAdd . SetFocus 
cmdUpdate . Enabled = True 



cmdSave_Click_Exit : 

Exit Sub 

HandleSaveErrors : 

Dim stMess As String 
Select Case Err. Number 

Case 3022 'duplicate key field 

stMess = "Record already exists -- could not save> ' " 
MsgBox stMess, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 

Case 3058, 3315 'no entry in key field 

stMess = "Enter a weapon type before saving." 

MsgBox stMess, vbExclamation, "Database Error” 

On Error GoTo 0 'turn off error trapping 

Case Else 

stMess = "Record could not be saved." & vbCrLf _ 

& Err .Description 

MsgBox stMess, vbExclamation, "Database Error" 
datWeaponTypes . Recordset . CancelUpdate 
Resume Next 
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End Select 



End Sub 

Private Sub cmdUpdate_Click ( ) 

If cmdUpdate. Caption = " ScUpdate" And _ 

datWeaponTypes . Recordset . RecordCount > 0 Then 

cmdUpdate . Caption = " Su&bmit " 
txtWeaponType . Enabled = True 
txtDescript ion. Enabled = True 
cmdDel .Enabled = False 
mnuFile . Enabled = False 
txtWeaponType . SetFocus 
cmdAdd. Enabled = False 
datWeaponTypes . Enabled = False 
datWeaponTypes . Recordset . Edit 

Else 

If datWeaponTypes. Recordset .RecordCount > 0 Then 
datWeaponTypes . Recordset . Update 

txtWeaponType. Enabled = False 
txtDescript ion. Enabled = False 
cmdDel . Enabled = True 
mnuFile . Enabled = True 
cmdAdd. Enabled = True 
cmdAdd . SetFocus 
cmdUpdate .Caption = " ^Update" 
datWeaponTypes .Enabled = True 
End If 
End If 

End Sub 

Private Sub datWeaponTypes_Reposition ( ) 
SetWeaponRecordNumber 

End Sub 

Private Sub Form_Load() 

datWeaponTypes . DatabaseName = gstNewDatabase 

With datWeaponTypes 
.Refresh 

If Not .Recordset .EOF Then 
.Recordset .MoveLast 
. Recordset . MoveFirst 
End If 
End With 

SetWeaponRecordNumber 
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End Sub 



Private Sub Form_Unload (Cancel As Integer) 

frmMain. Enabled = True 
Unload Me 

End Sub 

Private Sub mnuFileBack_Click ( ) 

frmMain . Enabled = True 
Unload Me 

End Sub 

Private Sub mnuFileSearch_Click ( ) 

datWeaponTypes . Recordset . FindFirst " [WeaponType] = & _ 

Input Box ( "Enter the Weapon Type" , "Weapon Type Search") 

& " ' n 



If datWeaponTypes . Recordset .NoMatch Then 

MsgBox "Weapon Type was not found.", vbOKOnly, "Weapon Type 

Search" 

datWeaponTypes . Recordset .MoveFirst 'go to first record 

End If 

End Sub 

Private Sub SetWeaponRecordNumber ( ) 

Dim iRecordCount As Integer 
Dim iCurrentRecord As Integer 

iRecordCount = datWeaponTypes . Recordset . RecordCount 
iC -entRecord = datWeaponTypes . Recordset . AbsolutePosition + 1 
If datWeaponTypes . Recordset . EOF Then 

datWeaponTypes .Caption = "No more records" 

datWeaponTypes .Caption = "Weapon " Sc iCurrentRecord Sc _ 

" of " Sc iRecordCount 

End If 
End Sub 
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